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in aita risoluzione 


// BASIC del I7o 20, nella versione base , non possiede comandi grafici per Calta risoluzione. Quindi, se 
sì desiderano visualizzare istogrammi etc., bisogna ricorrere a manipolazioni ( macchinìpolazioni) 
piuttosto elaborate dei caratteri in dotazione . mentre è praticamente impossibile ottenere grafici di 
funzioni poiché la risoluzione che si ottiene gestendo il quarto di cursore per lo se henna del Ile è 
ancora troppo bassa (44 x 46). 







Definizione di y s f (x) 
x = 89 


LA MEMORIA di schermo del 
Vie 20 contiene 23 righe x 22 | 
colonne per un totale di 506 ca- 
ratteri o distinte posizioni del 
cursore. Questo è poi diviso in 8 
x 8 = 64 punti. Quindi la massi- 
ma risoluzione a cui può giungere 
il video è {22 x 8) x (23x8) = 
176 x 184 = 32.384 punti. Non é 
molto ma sarebbe già sufficiente 
per rappresentare grafici di fun- 
zioni se il Basic del Vie possedes- 
se alcune istruzioni grafiche ele- 
mentari. 

Questo programma permette . 
di visualizzare in “alta risoluzio- 
ne” il grafico di funzioni di una 
variabile senza far uso di nessuna 
espansione grafica o di memoria. 
II programma è ridotto alPcssen- 
ziale e lascia alcuni problemi 
aperti, ma chiunque avrà la pa- 
zienza di leggerne il commento e 
capire come funziona potrà mo- 
dificarlo in base alle sue esigenze. 
Onde evitare eccessive spiegazio- 
ni, è doveroso ed opportuno cita- 
re almeno due riferimenti utili al- 
la lettura del seguito: 

a / il capitolo 6 del libro “Im- 
pariamo a programmare in Basic 
con il Vie” delia dr. R. Boncili 
(Milano, 1981) dove sì spiega, tra 
l’altro, come sono strutturati i 
4K di ROM che contengono Tim- 
magine dei caratteri e dove sì tro- 
vano gli indirizzi che permettono 
di stabilire o leggere come è divi- 
sa la memoria utente; 

b / Tarticoio “La definizione dei 
caratteri con il Vie” di C. Del 
Forno (BIT, luglio-agosto 1982), 
dove sì mostra, con un program- 



x =■ x + T 


x > 87 

7 


Calcolo di i £x) Punto P (x ; f ) 



v <- ea 

y > 95 



La focazione A 
è già occupata 


Costruì io ne dì un nuove 
carattere. Contatore 
caratteri 
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ma didatticamente molto chiaro, 
come sfruttare la possibilità del 
Vie di indirizzare i puntatori deica- 
ra tteri in una zona di RAM in cui 
possono esserne definiti di nuovi. 

Il funzionamento del prò* 
gramma che segue, nelle linee es- 
senziali, à questo: si calcola il va- 
lore delia funzione y = f (x) per 
un insieme di valori crescenti di x 
(ad es. -88 < x < 88 step 1 ) e, in 
base ai risultati ottenuti, vengono 
automaticamente costruiti e 
stampati, un punto alla volta, dei 
caratteri, il cui susseguirsi sul vi- 
deo costituisce, approssimativa- 
mente, il grafico della funzione. 

M programma 

» Linee 1-20. La poke 36869,254 
permette di costruire una nuova 
serie di immagini dei caratteri a 
partire dal byte 614 4. Sono quin- 
di disponibili 7679-6143 « 1536 
byte corrispondenti a 1536/8 = 


192 caratteri. Questi 1536 byte 
vengono sottratti ai 3,5K di 
RAM utente ed è necessario clic 
dì ciò il Vie venga informato, so- 
prattutto riguardo alla memoriz- 
zazione delle stringhe che viene 
effettuata per indirizzi decrescen- 
ti a partire, normalmente, dal 
fondo della memoria. À questo 
provvedono le pokes della linea 
IO* Inoltre vanno messi inizial- 
mente a zero tutti i bytes utiliz- 
zati per la costruzione dei nuovi 
caratteri. (Vengono azzerati solo 
i byte dal 6144 al 6783 anziché 
al 7679 per impiegare minor tem- 
po e perchè 80 caratteri sono 
quasi sempre sufficienti per i gra- 
fici, Se cosi non fosse si può fa- 
cilmente apportare una correzio- 
ne). La poke 36879 J 04, infine, 
fissa il colore sfondo/ schermo e 
può essere cambiata a piacere, 

* Linee 30-50 , Sono abbastanza 
chiare. La linea 45 fa in modo 
che la funzione non venga calco- 
lata nei punti in cui non è defini- 


ta'' evitando dei break per errore. 
Deve essere compilata con cura 
ogni volta che si introduce una 
nuova funzione. Per illustrare il 
significato dei parametri lì, C, D. 
E che compaiono nella linea 50 c 
che vengono introdotti con i 
quattro input iniziali occorre far 
riferimento ad alcune nozioni di 
analisi matematica elementare. 
Data una funzione y~f(x) ed 
un numero k sì ha che: 

1/ k, f (x) *‘dilata T * Pujiità di mi- 
sura sul Tasse y di un fattore k; in 
pratica la funzione si allunga o si 
accorcia verticalmente a seconda 
che k sia maggiore di uno oppure 
compresa tra zero ed uno; 

2/ f (x/k) opera analogamente 
sull'asse x; 

3/ y * f (x) + k sposta vertical- 
mente La funzione di k unità ver- 
so l’alto o verso il basso a secon- 
da che k sia positivo o negativo; 
4/ y = f (x - k) sposta orizzontal- 
mente la funzione di k unità ver- 
so destra o sinistra a seconda che 


1 PRINTCHR£( 147) *FRIMTCrtR$<3) - PCKE3SS73. 134 

2 PRINT * PR I X7 ITA' RSSE X i.C = PRIK7 ? IHPtSTC 
S PRIMI : PRINT"LiNITfl / fiSSE V =";3 : PRIMI: INPU73 
4 PRIMI :PRINT"nL70-3fl330 ="; SPRINT: INPUTD 

3 FR I NT : PRIMI “ 3E377<R-S I M l STPfì SPRINT : I NPUTE : ?R I MTCHRJ ( 1 47 ) 

10 PCRI-S143 , 06733 : POKZI , 2 : NEX7 : PQKS3Ì, 003 ■ PCKZ32, 24:*CKE53, 2ZZ- P3XZ33, 24 
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Personal Computer professionali 


PREZZO LIRE 


CODICE 

PRODOTTO 

(IVA esclusa) 


SERIE 4000 

40 Colonne Vìdeo, Basic 4.0 


CBM 4016 

CPU I6K RAM 

1,750.000 

CBM 4032 

CPU 32K RAM 

2. 190.000 

CBM 2031 

Floppy Disk 

drive singolo 17 IK byte 

1.066.000 

CBM 4040 

Floppy Disk 

doppio drive 343 K byte 

2.190.000 

CBM 4022 

Stampante ad agili 

bidirezionale 

1095.000 


SERIE 8000 

80 Colonne Video, BASIC 4.0 


CBM 8032-SK 

CPU 32K RAM 

tastiera separabile, video orientabile 

2,700.000 

CBM 3096-SK 

CPU 96K RAM 

lattiera separabile, video orientabile 

3.350.000 

CBM 9000 

Micro Mairi Fraine Computer 

134K RAM a doppio CPU (6502-6809) 

3.400.000 

CBM 8060 

Floppy Disk 

doppio drive 1M byte in linea 

2.825.000 

CBM 8250 

Floppy Disk 

doppio drive a doppia faccia con 2M byte in linea 

3 450.000 

CBM 9060 

Hard Disk Win Chester 

con 5M byte in lìnea 

4.950.000 

CBM 9090 

Hard Disk Winchester 

con 7.5M byte in linea 

6, 100.000 

CBM 6400 

Stampante a margherita 

Alta qualità di stampe, bidirezionale, 40cps (utilizzabile anche con carta da bollo) 

2,950.000 

CBM 8023 

Stampante ad aghi 

bidirezionale 150 cps - 132 colonne 

i, 855. 000 


COMMODORE 64 

40 colonne, colore, sintetizzatore di suono 


CBM 64 CPU G4K RAM 

con alta dsdurione grafica incorporata, 256 combinatogli di co E ore, collegabile ad un comune televisore 
Con interfaccia T-2 (IEEE 488) collegabile alle periferiche Commodore Serie 4000 e 8000 

1541 Unità a disco (Floppy Disk) 

Veloce unità di memoria di massa al alta capacità. 

Può immagazzinare fino a 170.000 caratteri su ogni singolo disco 

1525 Unità stampante 

Stampante ad aghi* matrice 5^7 caratteri grafici. 50 caratteri al secondo, 80 colonne. 

1530 Registratore a cassette 

Pei memorizzare facilmente programmi e dati su normali cassette magnetiche 

T-2 Interfaccia IEEE 488 

Consente i) collegamento di tutte le periferiche Commodore 


825.000 

680.000 

550. onci 


120.000 


175 nnn 

contìnua # 





Personal Comp iter professionali 


seguito 


PREZZO LIRE 

CODICE 

PRODOTTO 

(IVA esclusa) 


SOFTWARE STANDARD 



Compilatori 


SU 

Compilatore «Fet Speed» (primo compilatore BASIC ottimizzato aumenta la velocità 
di esecuzione dei programmi di circa 40 volte) 

5%. 000 


Linguaggi 


S 21 

COBOL e aggiornamento per il CBM «MMF '5000* 

95.000 

S-22 

TCL - PASCAL 

325.000 

S-23 

UCSD - PASCAL 

Data Base manageriale 

275.000 

$-31 

*Tlie Manager* per la serie 8000 i versione italiana) 

Pia ni Oc adone manageriale (Spread Sheet) 

620,000 

S-41 

Vacale % per ii CBM 8096/8096$ K 

400.000 

S-42 

Vacale per il CBM 4032/8032/8032SK 

300.000 

$-43 

Cale- Resu It, it nuovo «SpreadSheet»; 
fino a 32 pagine disponibili 

■ 4 parti di pagine differenti visualizzabili contemporanea mente 

— output grafico ed istogrammi 

— per la serie 8000 

350.000 


NETWORK 

Offre la possibilità di collegare fino a H CPU (4032 - 8032) con stampante e floppy disk. 


MBS IOC 

Unità madre 

490 000 

MBS 100 3 

Unità figlia con 3 m di cavo 

310.000 

MBS- 100-7 

Unità figlia con 7 m di cavo 

340.000 


SCHEDE AGGIUNTIVE 


Bd 

64 K RAM e nuovo sistema operativo «LOS %* 
per incrementare fino a 96K RAM il CBM 8032 

TòO.OUO 

B-2 

CP, -MAKER incrementa la memoria interna di 64 K RAM e permette 

l'uso di lutti i programmi CP M 8 bit disponìbili, Compatibile con serie 3000. 4000, 8000 

1.450.000 

B-3 

Scheda ad alta risoluzione grafica 

con 32K RAM, 25 arnovi comandi BASIC e due modi di risoluzione: 

1 pagina video con 512 per 512 punti 

2 pagine video con 512 jier 256 punti 

720.000 


ALTRE PERIFERICHE 


CBM 8010 

Acque tic C empier, 300 Baud/sec 

595.000 

CBM 8075 

Plotter 

3.950 000 

C-l 

Cavo P/l 

85.000 

C2 

Cavo l/l 

95.000 


DISCHI FLESSIBILI 5” 1/4 «COMMODORE» 


D-l 

Scatola di 10 dischetti a singola faccia 

75.000 

D2 

Scatola di 10 dischetti a doppia faccia 

115.000 


Pittai i n Vigore; diil 31 '^.HLì « soyr*.'?b i modifica icrm furore rlotiiitìa 






k sia positivo o negativo. 

Agendo su questi quattro opera- 
tori si ha a disposizione una sorta 
di grandangolare che ci da una vi- 
sione generale (si fa per dire) del- 
la funzione, trasformabile in un 
teleobiettivo che ce ne mostra i 
dettagli c che può essere “punta- 
to 1 ' su qualunque zona del piano 
cartesiano ( compatibilmente con 
la capacità di calcolo del Vie). 

* Linee 55-65 , A questo punto il 
calcolatore ha le coordinate x e y 
di un punto deila funzione e il 
problema è come fargli stampare 
il puntino (x;y) sullo schermo 
senza modificare ciò che in esso è 
già presente. Il procedimento è 
questo: 

a/ si calcola quale delle 506 loca- 
zioni dello schermo “contiene” il 
punto (x;y). Ciascuna locazione 
può essere occupata da un carat- 
tere di 8x8 punti; 
b/ si calcola quale dei 64 punti 
del carattere da stampare deve es- 
sere “acceso". 

Nella linea 55* M% ed N%. sono le 
eoo r d i n a te del cursore nello 
schermo assumendo come origine 
(per comodità di calcolo) la loca- 
zione in basso a sinistra, mentre 
Z e T sono le coordinate del pun- 
to nel cursore. 

Conoscendo M% ed N ,b si può 
calcolare in quale locazione À 
della vìdeo-RAM si dovrà pokka- 
re il codice del carattere (H è la 
locazione fissata, ai fini della vi- 
sualizzazione, come origine degli 
assi)* 

Si possono ora verificare due 
casi: o la locazione À è occupata, 
e quindi contiene un codice di- 
verso dal 32 die é lo space, oppu- 


re contiene il 32. Nel primo caso 
occorre conoscere il codice del 
carattere che la occupa poiché 
proprio quello deve essere modi- 
ficato, Nel secondo caso occorre 
definire un nuovo carattere da as- 


sociare a quella locazione. Si in- 
crementa dunque un contatore J 
dei caratteri di una unità* L, co- 
dice del carattere, è in tal caso 
uguale a J* 

* Linea 70 l II passo decisivo eon- 


Fig. 3 

In questo esempio le coordinate dei punto da stampare sono (66:52). Le coordi- 
nate dei cursore nello schermo sono ì quozienti interi delle divisioni: = 66/8 

- 8 e N% = 52 j 8 = 6. Le coordinate del punto nel cursore sono i resti delle 
precedenti divisioni e ciac Z = 2 e T - 4. 

Occorre poi calcolare a quale locazione della video -RAM corrispondono le 
coordinate x ed y del cursore, A tale scopo è sufficiente ricordare che , fissata 
una locazione II come origine, per spostarsi di y righe ed x colonne si dere 
calcolare H + 22. v + x. 
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Cassette per espansione di 
memoria. 

VIC 20 ha una memoria di base 
di 5 K bytes. Per aumentarla sino 
a 32 K bytes hai a disposizione 
tre cassette da 3, 8 e 16 'K RAM. 
Basta inserirle nel VIC oppure 
nell'apposito Memory expansion 
board. 



VIC 20 è un sistema interamente 
espandibile grazie alla semplice 
aggiunta di moduli, questi che 
vedi e molti aldi. 


VIC 20 Computer. 

Questo è il favoloso VIC 20 
computer. 5 K-Bytcs espandibili 
a 32. 24 colori. Note musicali. 
Collegabile all’unità nastro, all’unità 
disco e alla stampante. Collegabile 
in Modem con le normali linee 
telefoniche. 


VIC 2(1 Single drive floppy disk. 
Unità a disco. 

Questo “floppy” consente di 
sfruttare tutta la potenzialità del 
VIC 20, Mette a disposizione un 
metodo veloce ed efficiente per la 
memorizzazione e il recupero dei 
dati e dei programmi. 

Abbinando il floppy disk alla 
stampante, il VIC 20 diventa un 
computer System ideale per il 
piccolo imprenditore, per il 
professionista, per le ricerche 





Cassette 

! questo i! primo degii accessori 
del V1C. Viene utilizzata per 
memorizzare dati e programmi 
o per inserire cassette con 
programmi già pronti. 

Si coliega direttamente con il 
V1C 20. 


Come ogni periferica VIC 20 questa 
stampante è prodotta con alta 
specializzazione e basso costo. 

- :, le utilizzi. 

e copie dei programmi, per 
fare lettere circolari, grafici, dati di 
lavoro, etc. Per realizzare 
programmi di word processing. 
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byte 0 
byte 1 
byte 2 
byte 3 
byte 4 
byte 5 
by te 0 
byte 7 


0 12 3*4567 


■ indirizzo 6144 + |_,3 


carattere L— esimo 


siste nel calcolo delPmdirìzZQ del 
byte da modificare e del numero 
(decimale) da pokkarvi per met- 
tere ad l (uno) un suo determi- 
nato bit lasciando invariato tut- 
to il resto. Il byte è il K-esimo e 
la formula per calcolarlo è ripor- 
tata nd listato in forma piuttosto 
trasparente. 

Per quel che riguarda il nume- 
ro da pokkarc nel byte K è suf- 
ficiente ricordare che per porre 
ad 1 Tn-esiino bit (supposto, co- 
me in questo caso, che sia a O ) di 
un byte bisogna pokkarc, in deci- 

7 

male, il numero 2 n oppure 2 " n 
se i bit vengono numerati da sini- 
stra verso destra. 

Finalmente, compiute tutte 
queste operazioni, il Vie comple- 
ta fesecuzione della linea 70 e, 
mediante la Poke A* h, un nuovo 
puntino si aggiunge ai grafico che 
a poco a poco compare sullo 
schermo* 

Terminato il grafico, attraver- 
so un GET, il controllo passa al- 
ITitente il quale potrà fissare 
nuove unità di misura sugli assi o 
spostare f origine degli stessi. 

Se si desidera introdurre una 
nuova funzione bisogna premere 
i tasti RUN-STOF e RESTORE e 
definirla nella linea 30. Se ci so- 
no alcuni punti q intervalli in cui 
non è definita occorre compilare 
oppor lunatamente Li linea 45, 

Conclusioni 

ti programma gira ‘"abbastan- 
za velocemente” e ì grafici che si 
ottengono danno un'idea attendi- 
bile dell 'andamento della funzio- 
ne nell’intervallo impostato. E 1 


Fig. 4 

Supponiamo, come mostra la figu- 
ra ; di conoscere le coordinare di un 
punto (Z;T) = (2;41 che deve essere 
" acceso " nel carattere L esano. 
D a bòi amo innanzitutto calcolare 
f indirizzo del byte da modificare e 
il numero da pokkarvi per mettere 
ad 1 un suo determinato bit. Se il 
codice del carattere è L allora il suo 
byte 0 sì trova alla locazione 6 ì 44 
+ L. S. Come risulta chiaramente 
dalla figura, dindi rizzo del byte è K 
= 6144 + L, 8 + (7 - 4} e il numero 
da pokkarvi è l ( 7 * )■ inoltre vo- 

necessario però assegnare in mo- 
do opportuno, procedendo even- 
tualmente per tentativi, le unità 
eli misura sugli assi. 

Le cause che possono far fer- 
mare fesecuzione del programma 
sono, in genere, due: 
a/ 80 caratteri non sono suffi- 
cienti; in tal caso si può corregge- 
re la linea 10 

10 FORI - 6 1 44T07679 :POKEi s 
0:NEXT m.etc. 

b / Non è stata compilata bene la 
linea 45. Ad es. se la funzione 
non è definita nei punti x = -3,x 
= 5,...etc. la linea 45 diventa: 

4 5 ì F X/C-B = -30RX/C-E = 
50RX/C-E - lt+ GOTO40 

Analogamente si procede se la 
funzione non è definita in uno o 


gli amo lasciare invariata Mi situazio- 
ne degli altri bit del byte (che nel 
nostro caso è il byte 3} dobbiamo 
fare in modo che in esso venga pok- 
kato il numero 2( V + Pack (Kf 
Siamo sicuri che non ci saranno del- 
le interruzioni per ilìègai quant in- 
ermi' poiché inizialmente ì bytes 
utilizzati par la costruzione dei ca- 
ratteri sono stati posti tutti arerò e 
la variabile x aumenta di una unità 
alia volta, quindi non accadrà mai 
di dover mettere ad 1 più di una 
volta lo stesso bit dello stesso byte ; 

più intervalli. In ogni caso se si 
desidera conoscere la causa del 
break si deve battere 
POKE36869,240. 

Il programma è suscettibile di 
alcuni utili miglioramenti come: 

* visualizzare gli assi cartesiani ed 
eventualmente i grafici di più di 
una funzione alla volta; 

* migliorare la grafica delle linee 
e pendenza elevata; 

* lavorare in coordinate polari. 

Sono disponibili, a tale scopo, 
circa 500 bytes e, volendo, la 
mappa dei nuovi caratteri può es- 
sere spostata “in avanti” di circa 
200 bvtes, ■ * 

di Gianfranco Bo* 

' Corso Risomi mento „ 1 OS/3 

16040 S. Sai valore (Genova) 


'2 - Computar Club 


Una routine ìnventa-giochì per lo scroti laterale del Vie 


AVRETE notato che quando il 
cursore lascia l’ultima riga dello 
schermo per iniziarne un'altra, 
tutte le righe superiori salgono, 
lasciando il posto per una nuova 
riga bianca. 

In pratica la SCROLL ROU- 
TINE, richiamata dal Sistema 
Operativo, ricopia ogni riga in 
quella immediatamente superio- 
re, come si può capire meglio 
usando un piccolo artificio: scri- 
vete nell'ultima riga in basso: PO- 
RR 37157, 0 premete il RE- 
TURN e tenete quindi premuto il 
CRSR DOWN. Vedrete, allora, 
l'effetto della SCROLL ROUTI- 
NE alquanto rallentato. 

Dopo aver resultato il Vie 
proviamo a scrivere una routine 
in BASIC che abbia lo stesso ef- 
fetto: (vedi LISTINO 1). Dopo il 
RUN vedrete che io scopo è rag- 
giunto, anche se in modo estre- 
mamente lento: la velocità non è 
certo la miglior caratteristica del 
BASIC. 


La SCROLL ROUTINE fa 
parte del Sistema Operativo (Ker- 
nel) ed inizia alla locazione deci- 
male 59765: per richiamarla ba- 
sta dunque scrivere SYS 59765 e 
premere il RETURN- Proviamo 
ad usarla con un programmino 
{vedi LISTINO 2). 

Dopo il RUN vedrete una spe- 
cie di nevicata. Ora anche ì più 
distratti di voi si saranno accorti 
che questa neve è per lo meno 
“strana": infatti, sembra SALIRE 
mentre è risaputo che nella realtà 
essa SCENDE, Ed eccoci al no- 
stro problema: perchè lo 
SCROLL va solo verso l'alto e 

nop a si che verso il basso, a sini- 
stra. o a destra come vorremmo 

noi? 

La maggior parte dei giochi di 
movimento (es. corse d’auto), 
hanno infatti un innaturale movi- 
mento verso il basso (parlo dei 
giochi fatti in casa s’intende, 
quelli inventati da noi). Ed allo- 
ra, visto il problema, perchè non 


inventare delle routine^ che per- 
mettano uno SCROLL verso il 
basso (DOWN SC ROLL), a sini- 
stra (LE FI SCROLL) ed a destra 
(RiGHT SCROLL)? 

Detto fatto, prima o poi infat- 
ti scoprirete che ben poche sono 
le cose che VOSI si possono fare 
con il Vie* 

Ritornando alla nostra routi- 
ne in BASIC del LISTINO 1 che 
simulava lo SCROLL versa la Ito, 
proviamo ora a riscriverla in mo- 
do che questa volta lo SCROLL 
sia verso il basso: (vedi LISTINO 
3), Lo scopo è raggiunto anche 
questa volta, solo che, essendo 
troppo lenta, la routine non ci 
può essere di alcuna utilità. Ora 
tutti sanno che la caratteristica 
principale dei programmi scrìtti 
in linguaggio macchina è la velo- 
cità, non ci resta quindi altro da 
fare che tradurre suddetto pro- 
gramma in linguaggio macchina 
ed il gioco è fatto. Allo stesso 
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s'impegna a rispondere 
singolarmente a tutte le 
richieste degli acquirenti de! 
dizionario per tutte le voci 
nuove che non dovessero 
figurare in questa prima 
edizione ed a pubblicarne un 
aggiornamento periodico. 


strumento di lavoro per quanti 
operano professionalmente 
nell’edp. 

Anni di lavoro dei tre 
coautori e dell’intera 
redazione di “Computer" 
testimoniamo un impegno 
che nessun altro editore 
italiano, grande medio o 
piccolo, aveva mai tentato. 

Aggiornamento 
telefonico personalizzato 

E, come se non bastasse, 
la redazione di Computer 


Made in Italy 

Il primo grande dizionario 
d'informatica non tradotto 
dall'inglese, del quale un 
grande editore americano 
come Auerbach abbia 
richiesto i diritti d autore per il 
mercato statunitense, 
finalmente è disponibile. 

Sulla rivista la pubblicazione 
delie dispense proseguirà 
fino alla Z, ma chi vuole 
disporre fin d’ora dell'opera 
completa, rilegata in cartone 
telato, può richiederla alla 
redazione e profittare 
dell’offerta di lancio. 

Migliaia di voci in inglese 
ed in italiano con le definizioni 
dei principali organismi di 
standardizzazione 
internazionali (IEEE, ISO, 
ANSI, ecc.) fanno di questo 
volume un indispensabile 


modo si possono creare le routi- 
nes per lo SCROLL a sinistra e 
per quello a destra. 

il risultato è il Vie SCROLL 
{vedi LISTINO 4L Esso è scritto 
in BASIC, naturalmente, ed è 
concepito in modo che le tre roti- 
tìnes in linguaggio macchina 
(DOWN SCROLL, LEFT SC- 
ROLL e RIGHT SCROLL), vada- 
no a posizionarsi automaticamen- 
te nella parte più alta della RAM 
a vostra disposizione, che dimi- 
nuisce cosi di 340 BYTFS, tanti 

i- 

quanti ne occupano le tre routi- 1 
nes. Il programma funziona con 
qualsiasi configurazione di me- 
moria del Vie ed alla fine si auto- 
distrugge (il programma BASIC 
non il VIC, vedi il NEW alla fine 
della riga 7) dandovi i valori deci- 
mali di accesso alle tre ro ut ìnes, Il 

valore di accesso alla UP SO 

. 

ROLL è sempre la stessa ed è 
quella del KERNAL, 

L’uso di queste routines di- 
pende solo dalla fantasia; provate 
a sostituire al SYS 59765 nella 
riga 4 del LISTING 2 il valore 
datovi da programma per il DO- 
WN SCROLL (SYS 7343 per il 
Vie senza espansioni) e vedrete 
che la vostra neve diventerà più 
naturale. 

Al LISTINO 5 troverete un 


programmino che fa uso delle tre 
routines e che, sebbene sia ai li- 
miti della demenzialità, spero vi 
serva come spunto per le vostre 
invenzioni: esso prevede l’uso del 
joystick ed è formulato per la 
versione base del Vie, Se avete 

dotato il vostro VIC di espansio- 

■# 

ni di memoria, cambiate i valori 
di D, L ed R alìafriga 0 con quel- 
li fornitivi dal Vìe SCROLL ri- 
spettivamente per il DOWN, LE- 
FT e RIGHT SCROLL. Inoltre, 
se la memoria aggiunta supera i 
3K, cambiate i valori 7680, 
38400, 7933 e 38653 alle righe 
1, 2 e 3 rispettivamente con 
4096, 37888, 4349 e 38141 sem- 
plice no? 

Ed ora alcune precisazioni sul 
Vie SCROLL: 

1/ Subito dopo aver ricopiato il 
programma salvatelo su cassetta: 
un eventuale errore di copiatura 
porterebbe ad un inevitabile 
CRASH con relativa perdita de! 
programma. 

2/ Le lìnee 14, 18 e 26 non han- 
no bisogno di REM dato che non 
verranno mai valutate dall* inter- 
prete BASIC, 

3/ Dopo aver premuto lo SHIFT 
(come vi richiederà il program- 
ma), sarete liberi dì fare ciò che 
vorrete e cioè: o di scrivere un 


programma ex novo oppure di 
caricarne uno dalla cassetta come 
siete soliti fare: le tre routines si 
manterranno al di fuori {o me- 
glio, al di sopra) di ciò che acca- 
de nella RAM, essendo protette 
dai puntatori di fine memoria. 
Ad esse vi potrete accedere con i 
comandi che il programma vi 
avrà indicato e di cui avrete preso 
nota. 

4/ Non LISTate il programma 
prima della sua esecuzione. Ne 
otterreste un blocco oppure un 
incredibile SYNTAX ERROR IN 
7, Fatelo partire subito dopo 
averlo caricato dalla cassetta, op- 
pure caricatelo usando SHIFT & 
RUN/STOP (prima di caricarlo 
inizia lizzate il Vìe con SYS 
64802 oppure spegnetelo e riac- 
cendetelo). 

LISTatelo solo se Io dovete 
correggere e poi risalvatelo sulla 
cassetta. (Tutto quanto detto in 
questo ultimo punto vale solo se 
avete il Vie senza espansioni di 
memoria oppure con respansione 

3KY 

E, per concludere, una do- 
manda agli appassionati: “Che 
funzione ha la variabile F? ”, » 

di Filippo Pozzi 

via XX Settembre, 8 G/B - 27058 Vt^hcfa 
(PV) - TflL 0333/5664090 


Lifting 1 

0 FQRR-0TO505~22 

1 POKE7680+R f PEEKC76S0+22+R) 

2 POKE3S480+R ■ PEEKOS400+22+R) 

3 NEXT 

4 FGRR=BTQ2i 

5 P0KE8164+R,32 

6 NEXT : 8QTO0 


Listing 2 

0 P0KE3697SL110 

1 fl*RHBa>#505 

2 FOKE7680+FL 46 

3 POKE3S400+F1,, 1 

4 3YS58765 : GOTO 1 


Listing 3 

0 F 0 RR= 535 ~ 22T 00 ST EP - 1 

1 PDKE7680+22+R,PEEK<7S80+R) 

2 PO K E 33 4 00 + 22 +R ■ PEEKC38430+R) 

3 NEX7 

4 FERRATOSI 

5 POKE7630+R/ 32 

6 MEXT ; GO T O0 





0 REM VIC-SCROLL BV-F. POZZI 

1 F=PEEK<260> =fi=PEEK<55> :B=PEEK<56) : lFfl<81THENFQKE35,fi+174:P0KE36,B--2: GGT03 

2 P0KE55 , R-8 i : POKE56 , B- 1 

3 K>PEEK<55 > +256*P£EK<56) ? FR INT "IHMSCREEN SCROLL ROUTINES" 

4 PRINT“3®WJP SCROLL SVS 59765" 'FRI HI" WDCINN SCROLL. . 3VS"K+1 

5 FRItfPBLEFT SCROLL. , SVS"K+52 : PRINT“M i ?IGHT SCROLL. SVS "K+ 195 

6 FORR-K+ 1 TOK+337 ; REPBR ' G0SUE8 : POKER .. R : HE;<T • PR INT " MB PRESS 3 SHIFT S TO END3" 

7 Wfl I T653 , 1 ; FORR*0TO2 1 : SVSK+52 : NEXT : NEW 
S IFFTHENRETURN 

9 IFR=16THENB=30 
16 IFfl*17THENP s 31 

11 I FR= 1 48THENR= 1 59 

12 1 FR=1 49THENR»! 5 1 

13 RETURN 

14 BONN SCROLL ROUTINE 

15 BBTR1S2,230, 189,253. 16, 157,19, 17, 189,253, 143, 157, 19, 149,232,224 

16 DPTB255, 205,239, 162,252, 139,0, 16, 157,22, 16, 139,0, 148, 157,22, 14S 

1 7 BRTR202 , 224 , 255, 208 , 239 ,162,9,1 69, 32,157,9,15, 232, 223 , 23 , 238 , 243, 96 

13 LEFT SCROLL ROUTINE 

19 URTO 169, 8, 133,1, 133,251, 169, 16, 133,2, 169, 148, 133,252, 169,0,200, 177,1, 136, 145 

20 BRTfil ,200, 177,251, 136,145,251,200, 192,21,283,239, 169,32, 145,1,24, 169,22, 101 

21 BOTRI , 133, 1,24, 169, 22, 101 ,251 , 133,251,163,242, 197, 1 ,208, 213, 162,0, 232, 189, 242 

22 DRTR16, 202, 157,242, 15,232, 189,242, 148,202, 157,242, 148,232,224,21,208,235, 169 

23 DRTR22, 157,242, 16, 169,9, 133, 1,133,231-5 169, 17,133,2, 163, 149, 133,252, 160,3,200 

24 ORTO 177, 1 , 136, 145,1,200, 177, 251 , 136, 145,251 ,230, 192,21,208, 239,169, 32, 145, 1 

25 DRTR24 , 1. 69 , 22, 1 8 1 , 1 , 1 33 , 1 , 24 , 169 , 22 , 1 0 1 , 25 1 , 1 33 , 25 1 , 1 69 , 258 , 1 97 , 1 , 208 , 2 1 3 , 96 

26 RIGHT SCROLL ROUTINE — 

27 ERTftl69,0, 133,1, 133,251, 169, 16, 133,2, 169, 148, 133,252, 160,21, 136, 177,1,209, 145 
29 DRTR1, 136, 177,251 ,209, 145,251,136, 192,0,208,239, 169,32, 145, 1 ,24, 169,22, 101,1 

29 EPTfll 33 , 1 , 24 , 1 69 , 22 , 1 01 > 25 1 , 133 , 25 1 , 1 69 , 242 , 1 97 , 1 , 208 , 2 13 , 1 62 , 2 1 , 202, 1 09 , 242 

30 DR T R1 6,232, 157,242, 16,202, 139, 242 ,148, 232, 157,242, 148,202,224,0,208,235,169 

31 DRTR32, 157,242, 16, 169,8, 133, 1, 133,251, 169, 17, 133,2, 169, 149, 133,252, 160,21,136 

32 BRTR1 77 • 1 , 280 , 1 45 , 1 , 1 36, 1 77 , 251 , 200 , 1 45 , 251 , 1 36 , 1 92 , 0 , 283 , 239 , 1 69, 32 , 1 45 , 1 

33 ERTR24 , 169,22, 181, 1, 133, 1 ,24, 169,22, 101 ,251, 133,251, 163,250, 197, 1, 208,213,36 


LISTINO #5 


0 P0KE37134, 127 : P0KE36377, 248 • P0KE161 , 0 : D=7343 : U<=59765 • L=7394 = R=7537 : FRI NT "13" 

1 R-ENIì< 1 >*585 : E=RHI? ( 1 >*0 : C=PEEK<37137>+PEEK<37152) POKE7630+R, 31 : POKE38400+R, B 

2 IFPEEK<7933>=81THENF=F+1 : FORV-15TO0STEP-1 ; P0KE36878, V = NEXT 

3 P0KE7933 • 37 : F0KE38653, 2 : IFPEEK (161 ) RNB8THENPR INT' 1 ”P : GOTO 13 

4 IFC-369THENSVSD - GOTOl 

5 I FC*353THENSVSB : SVSR : GOTOl 

6 IFC=241THEMSVSE : SVSL : GOTOl 

7 l FC-357THENSVSR : GOTO! 

? I FC-34 9THENSVSU •’ SVSR : GOTO! 

9 IFC=237THENSVSU : SVSL : GOTO! 

1 8 IF0365THENSV3U : GOTO i 

11 IFC«245THENSVSL 

12 GOTOl 

1 3 PR I NT 1 " ST I RES °ER CONTI MURRE " : NR IT37 1 37 , 32, 32 : FORS=0 T O2 1 : SVSL : NEXT : RUN 
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Nette foco grand*? il <J 'Cormmodonano" 
Mauro Bellugi Nel riquadro un? 
riproduzione del TOTFRINT, per in 
stampa di schedine multiple di cui si 
parla in questa articolo 


Come fare “ 1 3” col Vie 


NON vi è nulla di strano nel fatto che 
ai sia pensato di portare nel “compu- 
ter" una disciplina de] tutto nuova ed 
affascinante come quella relativa al To- 
tocalcio, 

Gli esperti de] settorè amano defi- 
nirla “sistemistica”, con ciò volendo 
alludere ad una vera e propria scienza, 
che ha come obiettivo 3 a realizzazione 
di metodi estremamente rigorosi che 
consentano di accedere al sogno (co- 
mune a molti, e solo da pochi realizza- 
to) . di una grossa vincita che risolva 
una buona dose dei problemi del quo- 
tidiano vivere. 

In fondo ciascuno di noi, davanti a 
un computer, avrà prima o poi pensato 
a formulare la propria “schedina” in 
base a criteri di un qualche tipo c di 
una qualche validità. Come, in fondo, 
è risaputo che e si sto i io in commercio 
onesti programmilo relativi all’argo- 
mento; ed è altrettanto noto che 
chiunque disponga di lui video ed una 
tastiera ne! proprio ufficio, ha, prima o 
poi, proposto ai colleglli di tirar fuori 
le diecimila lire necessarie per comple- 
tare una giocata “fresca di tabulato”. 
Non si è mai avuto notizia di persone 
che abbiano goduto di grossi ed effetti- 
vi vantaggi dall'uso di queste tecniche, 
e ciò quasi sempre per una ragione 
piuttosto importante: non basta essere 
un conoscitore di elettronica o pro- 
grammazione per realizzare dei sistemi 
realmente validi. Lì i sogna, per cosi dire. 


essere del mestiere, intendersi di meto- 
dologie di gioco molto sottili e collau- 
date, avere avuto realmente u ^espe- 
rienza “sul campo”, se è vero che, qua- 
si sempre, sistemi che sembrano eccel- 
lenti alla vigìlia (per l’occhio profano 
del dilettante) risultano poi delle vere 
e proprie “frane” e viceversa. 

Et fatto nuovo è che, questa volta, a 
proporre dei programmi (e, soprattut- 
to, degli strumenti) jjer il Totocalcio è 
un professionista in materia, il dott 
Vincenzo C are h idi, collaboratore tec- 
nico del settimanale specializzato To- 
locorriere ed autore e curatore della 
rubrica dall’eloquente titolo “Da! 
Computer al Sistema”. 

L'altro fatto importante è costitui- 
to dalla scelta di uno strumento econo- 
mico, brillante e largamente diffuso 
come il Vie 20 per l’ elaborazione dì 
sistemi c calcoli complessi finora (e so- 
lo occasionalmente) delegati quasi per 
intero a grossi c costosi computer. 

Attraverso l'adozione di un interes- 
sante algoritmo, in effetti, i programmi 
ideati da Carch-idi, consentono l'elabo- 
razione di qualsiasi tipo di sistema, 
senza richiedere grandi impieghi di me- 
moria. esigere unità a disco, o limitare 
la fantasia e l’inventiva delTutente. 

Et Vie 20, in pratica, porta in tutte 
le case la possibilità di una concezione 
professionale e scientifica del Totocal- 
cio, in quanto, fra l'altro, oltre al pro- 


gramma-base, sono in cantiere proget- 
tazioni software per sistemi ridotti, 
elaborazioni scientifiche dei pronostica 
ed altre originalissime ed inedite appli- 
cazioni su cui fautore ha voluto man- 
tenere un rìgido ed intransigente silen- 
zio. “Che ci copino il più tardi possi- 
bile.” ha commentato distaccatamente 
fautore di questi programmi, con una 
punta di sarcasmo nei confronti di chi 
“ha fiutato l’affare” e sta con le orec- 
chie tese a cogliere e copiare le novità. 

E le novità, questa volta sono gros- 
se davvero. L’autore del programma, in 
effetti, risulta oltretutto proprietario 
dì un brevetto che si accinge a diventa- 
re internazionale: un alimentatore au- 
tomatico di fogli singoli denominato 
“Toioprinf', utilizzabile, appunto (fra 
le tante cose), per ottenere la stampa 
diretta cd automatica delle schedine. 

La portata di questa applicazione 
assume una notevole importanza, lad- 
dove si pensi che esistono migliaia di 
ricevitorie, società di gioco e addirit- 
tura giocatori singoli che, settimanal- 
mente, si scontrano con F inrisolvi bile 
(smura, per lo meno) problema dell’er- 
rore e, soprattutto, della trascrizione 
manuale delle colonne. 

Chi non ha mai provato a ricopiare 
i 0.000 o addorìttura 50,000 colonne a 
mano (il Coni non prevede infatti 
l'adozione di tabulati stampabili con 
elaboratori), non può lontanamente 


Compì, tir rQith f 9 



5 REM TGT9 

Iti REM 

1000 BlMM$Cl3,3>,C^3) J U^3^M^3> J Pa3,5>,BU*a3,S4> J BS$O0) J BL^C20> J Q^a3,3> J R<i5i 
,2? 

1025 GS-0 ; E1«1 

1100 INPUT" NUMERO RIGHE» ";NR 
1150 IFNRC1ORNR>13THEN1100 
1250 FRI NT * FRI NT 

1300 PRIMI "SCRIVERE IL PROSFET - " 

1350 PRIMI "TO UNA RI OR PER VOLTA" 

1400 FRI NT" SEPARANDO OLI ELEMEN-" 

1450 PRINT"T I CON UNA VIRGOLA" 

1700 FRINÌ: FRINÌ 
1300 FQRX«1T0NR 

1S50 PRINT"RIGfì NUMERO"; I : INPUT" " ; 1 , 1 > , M*<I , , t1*U . 3> 

1300 IFM$C Ll>" ,J ANDM$ < 1 , 2)*" J, RNftM*C I *3)^' "THEN1850 
1350 FORK»1TO3 ìBCK)-0:NEKTK 
2000 F0RK=1TC3 

2050 lFLENtMta J KJ>-0THEN2400 
2100 FOSJ*iTOLEN<Mt<I,K)> 

2150 EFMID$Cri*a,K>* J*l>* J, l n THEHDCl>«Ba> + l =00102350 
2200 I FMI D$ <Mt < I . K )> J, I > « '" 2 M THEND < 2 ) «D C2) + 1 : GDI 03350 

2250 i fm i m < n$ < i , k > * j > i > " x ■ " themd c a > c 3 > + 1 : GOTO2350 

2300 GOTO 1650 
2350 NEXTJ 
2400 NEXTK 

2450 IFlKn>lORD(2>>lQRDC3)>lTAENlS50 

2500 NEKTI 

2550 FRINÌ : FRINÌ 

2600 F0RI*1T0NR 

2650 F0RK“1TD2 : BLX<K)=LENCM#i£ I , ICO ' NEXTK 

2700 PRINTSFC<4>;M$<I, l)JSRC<4-BL«<l)>;M*af 2>;SPC(4-BLXC2)>jM«a^3) 

2750 HEXTI 

2800 PRINT 3 FRINÌ : FRINÌ 
2850 INPUT " VA BENE " ; B$ 

2375 IFEW’SI M flHDB«>' 1 NO ,1 THEN2050 
2900 IFB*^ "NO " THEN1250 
2910 FORACI TGNR 
2320 FQRK=1TQ3 

2325 IFLEN<W<fl,K>>>lTHENEl-*0 
2330 NEXTK 
2940 NEXTfl 

3000 FRINÌ "FORMULA J| : INPUT "DERIVAI A" ; CU > , CC2) , CCS) 

3050 I FNRO CC <1 >+C < 2; +C< 3 ) > THEN30M 
3 1 00 FQRK* 1 103 = N< K ) «0 : NEXTK 
3150 F0RK«=1TG3 
3200 FORICI TQNR 

3250 IFCHÉC I , K)O tì " >THENrKK>«N<K> + l 

3300 NEXTI 

3350 NEXTK 

3400 F0RK-1TD3 

3450 IFCCK»N<K>THEN300ti 

3500 NEXTK 

3600 F0RK k 1T03 : D<IO“6 ; NEXTK 

3780 INPUT" SOLO NUMERO COLONNE Ji ;3N$ 

3750 I FSN#0 "SI "RHDSN^O" NO " T HEN3700 
3820 $T$=" " : 0R^ m J ' *"* 

3350 I F SN#“ "SI " THEN4 1 50 
3900 INPUT "SU STAMPANTE " ; ST* 


20 - Computer Club 



Commodore è vicina. 

Napoli Parco S. Paolo 


Commodore aggiunge 
un nuovo punto vendita 
e assistenza ai quasi 5(X) già 
operanti in Italia: 

CM Computermarket, 
Napoli Parco $. Paolo, Is*9 
Tei, 081/76.72.222. 

Qui trovi gente che la sa 


lunga sui computer e sulle 
qualità dei vari computer; 
professionisti che ti propon- 
gono sistemi am il miglior 
rapporto prezzo-prestazioni 



COMPUTERMARKET 


e una vasta gamma 
di soluzioni: gamma alla 
quale nessun produttore 
di “personal" si può oggi 
avvicinare. Anche per 
questo Commodore è prima 
in Italia. E in Europa. 

Ti aspettiamo. 







n 


Commodore computer c conosciuta le prime tre aziende mondiali di "personal ' 1 

in tutto il mondo per l'eccezionale rapporto ed c prima in Europa. E prima in Italia, 
prezzo-prestazioni dei suol sistemi. Il più Commodore Computer Italia dispone 

interessante. oggi di una rete che sfiora i cinquecento 

Anche per questo Commodore è fra ponti vendita. 





Con gente preparata e programmi 
personalizzati, pronti per risolvere i tuoi 
problemi. 

Con Commodore sei in buone mari, 
Commodore Italia s.r.L - iti 02/612565 I 


C Z Commodore 

k i r~\ i j — j— j 

bK 



*. 


ET WS PISA 


3950 

3970 

3930 

3990 

4150 

4300 

4250 

4309 

4350 

4400 

4450 

4650 

4700 

4730 

4770 

4300 

4850 

4909 

4950 

5050 

5100 

5150 

5500 

5530 

5570 

5600 

5650 

5750 

5300 

5850 

5950 

5970 

6030 

6050 

6130 

6153 

6170 

6200 

6250 

6300 

6350 

6400 

6450 

6500 

6550 

6600 

9000 

9030 

9100 

9150 

9209 

9250 

9300 

9350 

9375 

9400 

9450 

950S 

9550 

9630 


I FSTtO "SI" ANEST#C>" MQ "THEN3300 
I FE 1 * 1 THEN4 1 50 

PRINT"fl GRUPPI DI SISTEMI " : INPUT" INTEGRALI ";GR# 

I F0R*O “ S I " RNDGR#0‘‘ NO 1 ' TKEN3980 

FORIMTQNR 

K-l 

FOR J= 1 T03 

IFM*C I , J)» ”'THEN4400 
PCI , KW : P(L4)=K : iOK+1 
NEXTJ 
NEXTI 

IFE1“0THEN3500 

CT-=8-KP»l 

F0RK=1T03 

IFN<K)>0RHOKCKJ<NRTHEHCT'!>CT+i : KP=K 
HEXTK 

I FCT> i THEH5500 
IFKP=>1THEHKR=2 :GGTO5050 
KA-1 

NB=NCKP> : KB-CCKP!) ; GOSUB63150 : NOCB 
HE^NR-CCKPJ 1 ; KB“C< KR> = GO3UE63150 : NONCtfCB 
GOTO9100 
CT=0 

F0RK«1T03 

IFN<K>O0THENCf-CT+l ; KF=K 
NEXTK 

I FC T 0 1 THEN59S0 
NC=1 

FORO» 1 TOUR : NC-NCWLEN C 11# C fi , KP > > : NEXTB 
GOTO9100 

I F < N <1 > ONR 5 OR < N < 2 > ONR > OR <N<3K>0) THEW900® 

PORR «1 TOUR 

IFLEN01$(R, 1 ') ÌO1THEH9080 

NEXTA 

NE«0 


PORR- 1 TOUR 

IFLEHCMSCR/ £> )»2THENND«ND+1 
NEXTA 

MH=ND : IFriN>C<2)THEHMN»C<2)- 
NO0 

F0RK«8T0MN 

NB-ND ' KB*K : G0SUB63 1 50 : RS®CB 
NB“NR-K ; 0*CC2)-K : GOSUB63150 :RS*R3#CB 
NG“HC+RS 


NEXTK 

GOTO9100 

PRIMT" "SPRINT" ATTENDERE "SPRINT" " 

GOTO9200 

PRIMI SPRINT" T0TRLE’ 1 :PRINT" COLONNE»" ; NC : PRIMI 

IFSN#-="SI "THEN13600 

IFSN$="SI "THEN10150 

IFST#»" NO "THEN 10150 

OPEN10J 4 

I FGSO0THEN9675 

S#='"' :FORI = 1T034 :S*=S*4" " : NEXTI : S1$»S#+" PROSPETTO" : PRINT#10j 
FORI «ITONE 


FDRK=1T03 ; BS#C K)“M#C I j IO : BLXCIO»LENCM#C I 
PRINT#10,S*;BS*a>;SPC<5-BLXa>>;BS*<2Ii; 
NEXTI 

PRINTW10J " " : PRÌNT#10J " " :PRXNT#10 J " " 


j HO ) : NEXTK 

SPC C 5-B LX < 2 > > ; BS# C 3 ) 


1# j CHR#< 13> 
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o Commodore 

a Roma 




P.le Asia, 21 - 00144 ROMA EUR - Tei. (06) 5916438 


CENTRO REGIONALE di 
DISTRIBUZIONE, VENDITA, ASSISTENZA 


• Vie. 20 e accessori 

• Dischi Winchester (Commodore) :5, 8, 22, 30 MB 

• Backup su nastro magnetico 

• Sviluppo procedure personalizzate 

• Contratti di manutenzione per parti di ricambio 



9650 0S=1 

9675 FORK= 1 T03 - BS# OO =STR#< C CK>> - NEXTK 

97S0 FRI NT# 10; 11 FORMULO DERIVfiTfi »" ; SPC< 15J i BS* <1 >i 


spc<3> ; bs#c 2> jspcc.3>; esjecsj; ch 



R$< 13> 

9750 CLOSE10 

10150 HC=0 

10200 1=1 

10250 J=1 

18300 P<I,5>«J 

10350 DCF<I/ JJJ-DCP6I < J>>+1 

10400 IFD<P< I - J>K*C(P<L J ) )THEN10550 

1 0450 B<P< I , J> >=DCPC 1 , J> >~i 

10500 GOTO 12650 

10550 1=1+1 

10603 IF K-HRTHEN10253 
10625 IFOR*="SI "THEN40040 
10833 FORfl=lTONR 
10853 L«F‘(flj5ì 

13900 ROÌ, 1 >=LEN(M$Cfl^ P<Rj L) ) > 

10950 F0RK=1TOR<FO 1 ) : Q$<F< K)-MI9f Olitt fl. P<fl, L> > ,K, i J 1 NEXTK 

11000 MEXTfl 

11150 Ilei 

11200 Jl«l 

11250 Rfll,2)=Jl 

11300 11=11+1 

11353 IFIiOHRTMEN 11233 

1140S NONC+1 

11453 IFSN*“"NO M RNDST$= , ’NO"THEN 11500 

11475 I FHC“ I NT < MC/ 1 6 ) W 1 6THENFR I NT " C, TROVATE» " 'i NC 

11533 IFSNf=' , SI"T MENI 2233 

11558 IFST#="S1"THEN 12000 

11600 F=NC—IHT <MC/16)$16 - IFF=0THENF=16 

11653 FQRR*=1TQNR : L“RCR, 2) ; F)**Q#<fl< L) : NEXTR 

11709 XFF016T MENI 1830 

11750 GOSUE61350 

11S00 GOTO 12200 

1 2303 F-NC- 1 NT < NC/64 > *64 : I FF=0THENF=64 

12059 F0RPl= 1 TONR : L“R< R , 2 > : BUB<fl< F)*»Q$<fl< L J : NEXTfì 

12100 IFF064THEN 12200 

12150 OOSUB60050 

12298 11=11-1 

12259 IFJ1<W<R<I1< 1 )-l )THENJ1= Jl+1 : (MITO 11250 

12300 11=11-1 

12350 IFIK1THEN 12550 

12468 J1=R<I1<2> 

12450 GOTO 12250 
12550 1=1-1 

12600 D<P< I , J) >»IKP< I < J> >--l 

12650 IFJ<=<P< 1 < 45-1 )THENJ=J+1 : COTO10300 

12730 1=1-1 

12750 IFK1THEN13130 

12800 J=P(L5) 

12900 D<PU< J>>=D<P<I» J)>-1 


12950 GOTO 12650 

13139 IFSN#="SX "THEN13550 

13158 IFORiP- " NO 11 PHD < <ST*= "S I flHDF=64 5 OR <ST*= "NO" RNDF“1 6 > > THEN13400 
13170 XFDR*=' , Sr , RND<<ST*="SI"nNDF=20)OR<STS= ,, NO"flNDF=5ì>THEN13400 


1 3200 I FST*= "SI " THEN 1 3350 

13225 IFGR$="SX "THENGQSUB59100 : GOTO 13556 

13250 GOSUB61050 
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13300 
13350 
13375 
13400 
1 3420 
13425 
13450 
13475 
13430 
13500 
13550 
13560 
13570 
1358D 
13600 
13650 
13700 
13750 
40040 
40050 
40100 
40150 
40200 
40300 
40350 
40400 
40450 
43500 
41050 
41100 
41150 
41200 
41250 
53050 
53075 
58 1 00 
58150 
58 1 75 
53200 
58250 
53300 
58350 
53400 
55100 
58 1 58 
58200 
58250 
58300 
58350 
58400 
58450 


OTTO 13550 

IFGRf » M SI "THENGG$UJfc £ 3tì0iD0 : GOTO 13400 

GOSUB69050 

I FST$= " NO 11 THEN 13550 

OFEN10 j 4 

IFi3R$» l, SI"THENÌ34S0 

PRINT#10j "TOTALE COLONNE^" ; £PC<2> ; NC; CHR¥£ 13> ; CHR$( Ì3> J CHR$C 13) ; CHR$ C 13> 
GOTO 13500 

FRI NT# 10, "TOTALE GRUPPI ; SPCCSO ; NC; CHR*a3) ; CHR*< 13> ; CHR$ (13) 1 CHR£ <13 ) 

CLOSE10 

■ IFGR$*="3I “THEN 13580 

PR1NT : PRIMI" TOTALE 11 : PRIMI" COLONNE» " ; NC : PRIMI 

GOTO 13600 

PRIMI ^ PRIMI 11 TOTALE 1 ' : FRINÌ 11 GRUPPI ; NC : PRIMI 

PRINT "ALTRE ELABORAZIONI 11 PRINT"CGN LQ. STESSO" ■ INPUT "PROSPETTO 11 i BIS 

IFCEl¥O ll SI t, flNDBl*O ,i NO l, )ORl..EH<Bl*> 3 “0THEN136OT 

IFBl^ sa "3I "THEN3000 

END 

NONOH 

I F$N$* H NO " ÀNB3T # » " NO " THEN48 i 50 
IFNC«INT<NC/20)M0THEHFRINT"QR. TROVATI- 11 ; NC 
IFSN^“ ,r SI "THEH41250 
IFST$» f 'SI "THEN41050 
F = MC> I NT C NC/5 ) *5 : IFF”STHENF K 5 

F OR A» 1 TONR : L = P C TU 5 > : BUSCA. F>=41$C Ai PCR, L> )■ NEXTA 

IFFO5THEN40500 

GGSUE59100 

GOTO41250 

F=NC-INT<NC/20>^20 ? IFF«0THENF=20 

FORACI TONR i L*F (fìi5) ■ BUf C A, F > £ FL F < A ■ L > ) * NEKTA 

IFFO20THEN41250 

OO3UB58050 

GOTO 12550 

OPEN 10, 4 

FORA»! TONR 

FORO™ 1TGF : É5$£G>=BIJ*<A, G> : NEXTG 
FORG-ITOF ^ BL>X G ) *LEH< BUS , CO > : MENTO 

I FF> 1 THEMF ORO “ 1 TOP- 1 : FRINTttlS, BS$ 03) ; 3PCC 4-BLK<G> ) ' NEKTG 
PRINT#10,£S$CF> 

Mexta 

PRIMI# 10," PRIMI#! 0-*' M 

CLOSE10 

RETURN 

INPUT" W BATTI RETURN ' PRIMI : FRINÌ 

FORACI TQMR 

S$S5'f ,J 

FORCAI TOP 
S*=*S$+ BUSCA. G> 

Sf~3$+" 11 ■ IFLENC Butani.. CO )*-3THEN594TO 
F0RG2«1T0<I3~LENC BUSCA. Q> > > * SS-SS* 11 PJ ; NEKTG 2 
NEXTG 


58500 FRI NT SS 
58550 NEKTA 

58600 FRINÌ = PR I NT "GR, TROVAI 1®% NC 
58650 RETURN 

60050 FQRG=1TO30 : BS$£ G> - Jl " i NEKTG 
60100 OPEN 10 , 4 
60150 FORA»! TONR 
60200 Gl “0 
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6025O FQRG-1T0F 

&mm Disoi+i 

60358 BS3KG U*BUfCR,e> 

60400 I FG=INT <G^0)*6THENQ 1-01+2 
60450 MENTO 

60500 FORG1*1TO80 1 PRINT#10j B3*<GI > ;SPC<0) : NEXTGÌ 
60550 MEKTFI 

606Q0 PRIMT#10, 1 ' "SPRINT#^* ” 

60650 CL0SE18 
60700 RETURN 

61050 FQRf3»lTQ22*B$$^G>* l, fl : NEXTG 
61075 INPUT 11 *m BATTI RETURN W IX* SPRINT : PRINT 
61150 FORB*1T0NR 
61260 01=0 
61250 FORCAI TOP 
61360 01*01+1 
61356 BS*<Gt>-BU$tA,G} 

61460 I FG=INT CG78> #3THEN01 *G1 +2 
61456 NEXTG 

61475 3*=" 11 3 FORGIATOSI : 3*»à*+BS*<Gl > : NEXTGÌ 
6150G PR1NTS* 

6155G NEXTR 

61680 PRIHT .SPRINT" C- TROVATE-" ; NC s PRINT : FRI NT ' FRI NT 
6 1 708 RETURN 

62050 FH«L 63208 H==N1; OO5UEG2050 - CB=FH 

62100 RDRHH-1T0H = FH-FH#HH : NEXTHH 63258 H~K£ : 00SUBS28W CB-CB/PH 

62150 RETURN 633*0 M-NB-KB i tìO$Uitf.* f è50 : CB«CB/FH 

63158 IF<KB®0>OR<NB*KB>THENCB-t iRETJFw 63350 RETURN 
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Hardware 

Contratti di manuteij&i 

e riparazione di j 

tutti i sistemi J 

Commodore dal M 

super pet al li 

Vie 20 1 

Novità microfazer 

Buffer esterno da 
8K e 64 K per 
eliminare i tempi morti 
delie stampe 


COMMODORE 
ASSISTENZA TECNICA 
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Software 

Exteded basic 
level l( 

Oltre 50 comandi 
in più a disposizione 
del vostro 
computer 
f Compilatore, 

per rendere bidirezionale 
la stampante 4022 


PERMUTE & OCCASIONI 

Vendita di sistemi Commodore 
valutazione e consulenza 


L’UFFICIO 2000 

viale B. d’Este, 26 - Milano - tei. 02/593159 - 580089 




immaginare a quale stress conduca l’in- 
grato compito. Certo è che la gran par- 
te di tali gruppi o ricevitorie (e si parla 
di molte migliaia di unità) hanno il più 
delie volte preferito ricorrere a tipi di 
giocala molto pii; dispendiosi e meno 
validfpurdi potere utilizare “schede da- 
sistema", le uniche che consentano la 
schematizzazione di insiemi colonnari 
più complessi, e sempre comunque di 
tipo integrale. 

Il nuovo prodotto, applicabile ad 
una qualsiasi stampante, ma espressa- 
mente concepito per la Commodore 
VC1515, risolve questo gravoso pro- 
blema, Adesso un piccolo Vie 20, con 
l'alimentatore automatico Fotoprint, 
può comodamente realizzare il sogno 
dei grandi sistemisti; la stampa diretta 
delle schedine. 

In pratica lo strumento, ispirato ad 
una complicata meccanica, prevede il 
trascinamento guidato delle schedine 
(una per volta, naturalmente) fino alla 
stampante. Il posizionamento della 
stessa viene garantito dalle precise gui- 
de di metallo, ed una volta che la sche- 
dina è pronta per ricevere la stampa, 
un 1 appo sita cellula fotoelettrica inter- 
rompe il lavoro delFalimentatore e la 
entrare in funzione la stampante. Una 
volta espulsa la scheda, perfettamente 
compitata, Totoprint si rimette in mo- 
to, immettendo velocemente V altra 
scheda e cosi via. Giunti alFultimo fo- 
glio, il congegno percepisce, attraverso 
uno speciale micro-interruttore, l’as- 
senza delle schedine, ed impedisce alla 
stampante di procedere, in attesa del 
nuovo rifornimento. 

Certo, chi piu godrà degli enormi 
vantaggi forniti dalforigmalc prodotto, 
sarà il giocatore più tempestivo: fra 
non mollo il Vie 20 potrebbe agevola- 
re talmente grandi masse di utenti che 
si passerà senza meno a! “14” e forse 
più. 

Nel frattempo, che vinca il miglio- 
re. 

Presentazione del programma 

Il TOT. il primo programma “testa- 


lo” di una serie di ideazioni, di cre- 
scente complessità c perfezione che, al 
momento attuale, arrivano fino ai TOT 
13. Il TOT 14. in fase di ultimazione, 
altro non è che una traduzione in lin- 
guaggio macchina del TOT 13, per una 
maggiore velocizzazione delle su brou ti- 
nca più ricorrenti, a tutto vantaggio 
della rapidità di esecuzione. 

Benché cosciente deh'oggettiva fa- 
cilità di “copiatura” dei programmi già 
posti in commercio, Fautore non ha 
autorizzato la pubblicazione dei listali 
più complessi (il programma TOT 13, 
ad esempio, prevede sofisticate selezio- 
ni, con condizionamenti multipli, eli- 
minazione dei segni consecutivi, stam- 
pa su schedine, eco,). Ha accettato, in- 
vece, la pubblicazione dei listato del 
TOT 9, che presenteremo qui di segui- 
to, e che, come tutti gii altri program- 
mi preparati dal doti. Carchidi, è com- 
mercializzato unitamente ad un indi- 
spensabile opu sco letto die ne consente 
un utilizzo ad alto livello anche nei 
meno esperii, ai meno esperti. 

Appena dato il RUN il programma 
chiede “Numero righe? ”, ed attende 
un INPUT numerico che indichi il nu- 
mero delle partite considerate. Partita 
per partita, il programma chiede poi la 
suddivisione del pronostico mediante 
fuso della virgola. In altri termini, oc- 
correrà distribuire il pronostico su tre 
colonne verticali, 

La colonna di sinistra (che coni erra 
i pronostìci che precedono le due virgo- 
le) rappresenta solitamente il pronosti- 
co di base, mentre quella di centro 
(che conterrà i pronostìci compresi fra 
le due virgole) e quella di destra (la 
quale conterrà, appunto, i pronostici a 
destra delle due virgole) rappresente- 
ranno, nelFordine, ta prima e la secon- 
da varcante. 

Attraverso tale ripartizione, l’uten- 
te potrà poi richiedere il quantitativo 
voluto di segni base e delie diverse va- 
rianti, ottenendone il calcolo colonna- 
re e lo sviluppo, a vìdeo o su stampan- 
te. a colonne singole oppure (ove sìa 
possibile) In gruppi di sotto -siste mi in- 


tegrali. 

Tale richiesta, sarà effettuata dal- 
F operatore dando in input ì tre quanti- 
tativi, in risposta alla domanda “For- 
mula derivata” (o correzione di errori). 

] tre input t che esprimono, appunto, 
questa quantità, andranno immessi se- 
parati dalla virgola, come già fatto per 
il pronostico. 

Ovviamente è possibile realizzare i 
sistemi a sezionò disponendo in prima 
variante (seconda colonna) le alternati- 
ve delta prima sezione, ed in seconda 
variante (terza colonna) le alternative 
della sezione seconda, 

A chi abbia anatema familiarità 
con la si sterni stic a, ìì programma FOT 
9 offre, pur nella sua essenzialità, op- 
portunità di selezioni molto complesse 
e sofisticate, anche se non consente la 
realizzazione delle condizioni incrocia- 
te previste dai programmi TOT 12 e 
TOT 13. Questi programmi, infatti, 
consentono il filtraggio multiplo del 
pronostico, applicando contempora- 
neamente, ad esempio, le correzioni di 
errori, le sezioni, le formule derivate, 

F eliminazione dei segui consecutivi, 
eec. 

A differenza del programma TOT 
9, il cui destinatario è l’utente dilettan- 
te, i programmi TOT 1 2 e TOT 1 3 pos- 1 
sono essere sfruttati adeguatamente so- 
lo da influenza die abbia dimestichez- 
za con il gioco c che quindi conosca i 
criteri più sofisticati su cu E si costrui- 
scono i sistemi. 

■ 

E’ importante sottolineare die que- 
sti programmi (il cui uso è molto facili- 
tato dagli appositi manuali di istru- 
zioni) arrivano a realizzare economie 
colonnari nelTnrdine del 99 per cento 
cd oltre, pur senza pregiudicare, a con- 
dizioni rispettate, la certez/a assoluta 
del “13”, Inutile dire che simili siste- 
mi. se realizzati a mano, comportereb- 
bero settimane di lavoro ed elevate 
possibilità di errori. 

h passiamo a considerare il listato 
del “fratello minore” TOT 9, il cui 
uso, est rema mente semplice, non ri- 
chiede alcuna particolare preparazione 
in fatto di sistemi. 9 
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Modello GP 100 
Lire 550.000 + IVA 


\ . '■ . ■-. ■. «. i 


GP 100 A/MARK II 


TC/6210 00 


TC/6200-00 


TC/202G-00 


Ad impatto 


Ad impatto 


Tipo di stampa 


Ad impatto 


Matrice dì stampa 

Stampa di caratteri a doppia 

larghezza 

Self Test incorporato 
Stampa di caratteri in campo 

inverso 

Velocità di stampa 
Larghezza trattori 
Colonne di stampe 

Interfaccia 

Cavo di collegamento 
Manuale 

Stampa caratteri a doppia altezza 
Caratteri definiti dall'utente 

Stampa grafica 


|6xB con discendenti 


30 cps 

10" 

40 e 80 ‘ 

PerVIC 20 
e CBM 64 

Compreso 
In Inglese e Italiano 
"No 

Set caratteri 
COMMODORE 


50 cps 

W 

40 e 80 

Parallela Standard 
Centronics 

Escluso 
In Inglese 
No 

No 

7x480 


50 cps 


40 e 80 


Parallela - Standard 
Centronics 
Seriale RS 232C 


Escluso 


In Inglese 


64 

— 

8x480 


GP 250 X 


Sinclair ZX Spectrum 


Commodore VIC20 
Commodore C BIVI 6 4 


Tandy Color 


Texas TI99/4A 


AVT camp 2 


Sinclair ZX81 


Modello GP 250 
Lire 635.000 * IVA 


Alari 400 800 


GP 100 VC 


MODELLO 
cod, REBIT 


Alcuni modelli collegabili 
con la stampanti SEIKQSHA 


LE STAMPANTI PER TUTTI I COMPUTER 

XEBrr COMPUTER ’ Dtròione delia QBC indiana S,p. A. ■ V» Induro, 1* - 
20092 aNlSliUO BALSAMO - Tbc 33002S OBCMlL - Casella ftalato L04SS Mi 


















Ecco dove trovi 

i Personal Computer Commodore 


Distributori Commodore 

Liguria 

Filisi In formiti Uji 

Piazza Cavour, 19 ■ L6043 Chiavali 
lei. 0185/30.10.31 

Piemonte 

Abu Elettronica sii Csanimìa 

Via Fostati, 5/C - 10141 ] brino 
Tel. 0lU33.20.Cs? 

1 .il m barili à 

Hnntic PerMUial Computer*. srl 

Piazza de Angeli, 3 - 2lU4f> Milano 
Tel, ftm.fi8.2fll 

Venelo, Frinii- Venezia Giulia, 

Ire (itine- Atto Adigi' 

CO,R + EL, Frisili Cn ni p uteri 

Via Mercatovecchìo. 2H ■ 33 ORI l dine 
'lei. 043329.14.66 

Finii iu-Kci magna, Marche 

S,H,R. srl 

Via Faentina 173/ A 

48U 10 Fornace Zannimi i Ravenna) 

TeL 0544/46.32,00 


Postina 
M,CrS, Spss 

Via Pier Capponi, 57 - 50132 Fi ivi ve 
lei. 055 57.13.80 

Fimbria - Allo Lazio 
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5 salti condizionati 
e incondizionati 


H controllo dei livelle di priorità delle istruzioni. 

Là maggior parie dei problemi richiede che il 
vostro computer sia programmato in modo da ripe- 
tere una o più serie di istruzioni secondo le esigen- 
ze del momento. Ciò è possibile per mezzo delle 
istruzioni di salto (jump). 

Una di queste è l'istruzione GOTO (vai -a), che* 
determina il passaggio del controllo al numero di 
linea del V istruzione indicata. In altre parole, il 
computer esegue l'istruzione verso la quale è “salta- 
to” e poi tutte le altre che seguono in sequenza 
finché non incontra un’altra istruzione di salto. Ad 
esempio: 

50 LET 1 = 1 
40 PRIMI I 
70 LETI -1 + 2 
00 GOTO 40 

determina la stampa dei numeri dispari 1.3. 5 ecc, 

_ * 

Tutte le volte che il computer esegue ristornane 

alla linea 80, salta automaticamente alla linea 60 

!■ 

obbedendo airistruzione che vi si trova. Passa, 
quindi, alPistruzione 70- Possiamo quindi dire che 
GOTO è un istruzione di salto incondizionato, dato 
che viene eseguito indipendentemente dalle condi- 
zioni esistenti. 

Avrete notato che nel pezzo dì programma ri- 
portato non esiste nessuna istruzione che fermi il 
programma durante la fase di esecuzione, che per- 
ciò è destinata ad andare avanti all'infinito. 

► 

Per poter fermare il computer durante la fase di 
esecuzione di questo set di Istruzioni, sarà necessa- 
rio inserire un altro tipo di salto legato all'esistenza 
di una particolare condizione. Questo tipo di salto, 
detto condizionato, esegue un test per verificare 
resistenza di una certa condizione e, in base al ri- 
sultato ottenuto, passa o meno il controllo ad 


un'altra parte del programma. 

In basic, il salto condizionato è rappresentato 
dall'istruzione IF, + , THEN (se... allora). Per inter- 
rompere, ad esempio, il programma che stampa nu- 
meri dispari, potete aggiungere al gruppo di istru- 
zioni riportato più sopra. le due eh* seguono: 

65 1FI * 21 THEN 90 
90 EMi 

Eseguite quindi il programma, verificando se effet- 
tivamente esso si interrompe dopo la stampa del 
numero 21. Se sostituite 21 con un numero pari, 

4 P 

diciamo 20 o 22, il programma non si interromperà 
mai dal momento che I non può avere questo valo- 
re, 

ì loop e il loro controllo 

Il programmino che avete appena esaminato è 
costituito da un set di istruzioni, dalla linea 60 alla 
80, eseguite in forma ciclica, cioè di loop (loop 
significa anello, cerchio). Per avere un'idea più 
chiara dì ciò che si intende per loop e per salto 
fuori dal loop, sarà sufficiente dare un'occhiata allo 
schema a blocchi riportato nella fig. 5,1. Noterete 
che V istruzione GOTO 60 è rappresentata da una 
freccia che va dal riquadro 70 al riquadro 60, 

I modi per uscire da un loop e saltare verso parti 
diverse di un programma sono numerosi Osservate 
il formato delTistruzione IF ... THEN: 
numero di linea IF espressione relazionale THEN 
numero di lìnea diverso , 

Avrete notato che il numero di lìnea segue la 
parola THEN deve essere diverso da quello che pre- 
cede la parola IF, altrimenti è Istruzione IF stessa 
a causare il loop. 

L'espressione relazionale costituisce la verifica 


C&frtpvI8S CiL'Ù - 33 




da eseguire. Se è vera {cioè, se la concimane sussi- 
ste). il controllo passa al numero della linea succes- 
siva a THEN; se è falsa* passa al numero della linea 
successiva alfistruzione 11 e le istruzioni continua- 
no ad essere eseguite in sequenza finché non viene 
raggiunta un’altra istruzione di salto. 


^START 



PBINTJ 


1^1 + 


TEST 

1^21 


YES 


STOP 


L'espressione relazionale confronta due espres- 
sioni nel formato seguente: 

espressione operatore relazionale espressione 
Se ricordate, un operatore relazionale l’avete già 
usato nel capitolo precedente; si trattava ddPope- 
ratore Per avere comunque una lista completa di 
tutti gli operatori relazionali disponibili, confronta- 
te la tabella seguente: 


operatore relazionale 


< 

> =o => 
< -o=< 
<>o>< 


significato 

uguale a 
maggiore di 
minore dì 

maggiore di o uguale a 
minore di o uguale a 
non uguale a 


TabtHtaB.I Gii foratori razionai 


L’istruzione IF tff THEN è particolarmente utile 
nejfm traduzione dei dati, in cui può essere usata 
per verificare la correttezza dei risultati finali, indi- 
viduando la presenza di un eventuale valore finto, 
cioè di un valore indicante la fine delfelenco dei 
dati e che non viene usato per l’esecuzione di calco- 
li nelPambito del programma. Il concetto è illustra- 
to nella tabella 5.2 che contiene un programma di 
somma numerica, in cui i numeri vengono introdot- 
ti uno per volta in risposta all'istruzione INPUT 
della linea 30, 


10 PR I NT ” ftl'B H HUMBEPS" 

11 PRIMI 
20 LEI T=0 
30 IMF UT 

40 IF KC-0 THEN 70 
50 LEI T=T+tf 
rSO GOTO ];o 
70 FRI UT "TOTAL = W ;T 
SO END 

Tab$EEa 5.2 Una chiusura dì programma con un valori falso 


Il programma della tabella 5.2 si fermerà quan- 
do in X verranno letti o uno zero o un valore nega- 
tivo. L'istruzione IF ... THEN deve comparire pri- 
ma dei calcoli che coinvolgono la X. in modo che 
essi non facciano uso del valore finto. 

Un altro modo per interrompere l’esecuzione di 
un set di istruzioni consiste nello specificare quante 
volte il loop deve essere eseguito* come indicato 
nella tabella 53- 


ld INPUT hi 

2Ò PRIMI A\, " HIJH8ERS 11 

25 F RI UT 
30 LEI Ui. 

35 LET T=ò ’ 

4H INPUT X 
50 LET T = T+Y. 

6U LEI 1-H 1 
70 IF KH THfLU 40 
30 Pk I UT " I OTRI - ,l , T 
Pu LND 

tabe Fi a 5,3 Programma che esegue somrrt+i di N rumen 


Se la linea 30 della tabella 5,3 avesse letto 
30 LET i - l 

la lìnea 70 avrebbe dovuto essere; 

70 IF J< = N THEN 40 

Questo perchè, quando il loop è stato eseguito N 
volte, se 1 è fissato in modo da partire da 1, il 





valore di I ? dopo che è stata eseguita la linea 60 è 
maggiore di uno rispetto al numero dei numeri di 
linea. Ciò significa ette il loop termina non appena I i 
- N + L 

II confronto fra le stringhe di caratteri 

Poiché ogni carattere memorizzato nel compu- 
ter é rappresentato da un’unica combinazione di 
cifre binarie j è possibile usare Tistruzione IF ... 
THEN per effettuare il confronto anche fra strili- 

' i? 

ghe di caràtteri, per esempio, per verificare se PS 
contiene ìi carattere HL L’istruzione 

25 IF P$ = “H” THEN 30 

4 

significa che la condizione è vera e quindi il salto 
alla linea 30 può essere effettuato. 

Questa capacità del linguaggio è particolarmente 
utile per confrontare fra loro nomi, indirizzi ed 
■dire informazioni di questo tipo, usate specialmen- 
te nelle applicazioni gestionali. Per scoprire quali 
caratteri hanno un valore superiore o inferiore per i 
test relazionali “maggiore di'* o “minore df \ avrete 
bisogno di potervi riferire ad un elenco di codici 
usati per rappresentare i caratteri nella memoria del 
vostro computer. 

Le istruzioni FOR NEXT 

Nei paragrafi precedenti il numero di volte in 
cui il loop doveva essere eseguito veniva program- 
mato impostando un valore iniziale per il contatore 
di loop, sottoponendo ad opportuno test il valore 
finale ed incrementando il valore corrente del con- 
tatore di loop se il valore finale non era ancora 
stato raggiunto. L’istruzione FOR ... NEXT (Per ... 
quindi), ha Io scopo di semplificare la programma- 
zione di queste tre operazioni. 

Nell'esempio della somma di N numeri, nella 
tabella 5.3, la variabile 1 (usata come contatore di 
loop) è stata impostata sul valore iniziale 0. diven- 
tato poi 1, dopo la lettura del numero e la sua 
somma. Terminata questa operazione, è stato ese- 
guito un test (i (N) per stabilire se il programma 
doveva ritornare all’inizio del loop o doveva fer- 
marsi. 


Con l 1 istruzione FOR ... NXET, il programma 
può subire delle interessanti modifiche. Ogni istru- 
zione FOR.., NEXT è costituita da due lìnee di co- 
dice, AlEinizio del loop, per stabilire le condizioni 
iniziali, rincremento o passo (step) da eseguire alla 
fine dei loop e il valore finale, viene usato l'istru- 
zione FOR in un modo la cui forma può essere 
sintetizzata nel modo seguente; 
numero dì lìnea FOR variabile = espressione I TO 
espressione 2 STEP espressione 3 
dove E espressione 1 stabilisce il valore iniziale del 
contatore di loop (noto come indice), i’espressione 
2, quello finale e l’espressione 3 l’incremento da 
sommare alla variabile alla fine di ogni esecuzione 
del set di istruzioni del loop. Se STEP è uguale a I, 
sia la parola STEP che Pespressfcme 3 possono esse- 
re tralasciate. 

L’istruzione finale dei loop si presenta nel for- 
mato seguente: 

numero di linea NEXT variabile 
dove la variabile ha lo stesso nome di quello dato 
nella relativa istruzione FGR, 

Il programma riportato nella tabella 5.3 può es- 
sere migliorato nel modo indicato nella tabella 5 .4. 
In X viene letto un numero N volte, in base a quan- 
to stabilito dalle istruzioni FQR NEXT, Nella 
linea 35, l viene posta inizialmente a l f quindi, 
viene incrementata di 1 nella linea 60 e, se è mag- 
giore di N, il programma va alla linea 80 e stampa il 
totale, altrimenti ritorna alia linea 40, 

10 INPUT H 

20 min "HDD" ; h ■ muhEERV 

£5 PRINT 

30 LET T-O 

35 FOR 1 = 1 TO li 

40 INPUT X 

50 LEI T=T+X 

6Ei ne;--:t i 

SO PRIHT "TOThL ='\ I 
SO END 

Tabella 5.4 Programma d somma alternativo 

- — - 

Inserite l'istruzione 

70 PRINT I 

in modo che, dopo che il loop è stato eseguito per 
il numero di volte stabilito, possiate vedere il valore 
di L 

1 può essere usata dentro il loop, facendo però 
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attenzione a non mollificarla (assegnandole cioè un 
nuovo valore) nel loop, dato che l'operazione pro- 
duce una variazione delle condizioni stabilite dal- 
ristruzione FOR ... N EXT. FI problema sintetizzato 
nello schema a blocchi delia figura 5.1* può essere 
codificato come segue; 

50 FOR I = 1 T0 21 STEP 2 
60 PftINT I 
70 WEXT I 

BÙ end 


li valore delTincremento dato nell’espressione suc- 
cessiva a STEP può essere negativo (nd qual caso 
decre menta il contatore '} o frazionario. La tabella 
S r 5 riporta un programma, vale a dire: 


I© PR I NT ,H START ■ END FiNP STEP 1 ' 

15 PRIMI ’VRF 1RBLES" 

16 PF: I NT 

20 INPUT HiTj C 

30 POP ì=H TD E STEP C 

4& PRIMI I 

SU NEJsT I 

60 END 

Tabella 5.5 Variabili di avvio, d. chiusura e di incrtìrri tìnto 

in cui è possibile introdurre le variabili di avvio, di 
chiusura e di incremento, cioè A* 0 e C Fate delle 
prove con un certo numero di combinazioni diver- 
se, compresi i valori negativi e quelli frazionari, o 
guardate che cosa succede. La tabella 5.6 riporta 
un programma simile, in cui, però, al posto delle 
semplici variabili, sono state usate delle espressioni. 


IO FRI NT “STFiRT.. END flWH 3TEP" 

15 PR I NT " EXPRESS ] GHS " 

16 PF 1 NT 

2© INPUT ft-IuC 

30 FOR I-R+ 1 TO B/2 STEP C-3 

40 PR: J NT I 

50 NEXT I 

60 END 

Tabella 5.6 Espressioni di tìwic , di chiusura e di n Manente* 


L'istruzione ON GOTO 


L’istruzione ON .... GOTO (nel caso che 
vaTa), si presenta nella forma seguente; 
numero di linea ON espressione GOTO due o più 
numeri dì lìnea separati da virgole . 


La parte intera del l'espressione valutata deve es- 
sere un numero positivo non superiore ai numero 
dei numeri di linea che vengono dopo la parte GO- 
TO dell’istruzione. 

il controllo passerà al primo, secondo, terzo.... 
numero di linea dopo GOTO solose la parte intera 
dell'espressione sarà uguale a 1,2,3 

Per esempio, esistono problemi in cui certi cal- 
coli devono essere eseguiti secondo un dato codice, 
come in questo caso. Supponete di dover introdur- 
re un certo numero di set di dati, ciascuno dei quali 
è costituito da un codice ( 1 , 2, 3, 4 o 5) e dai valori 
di X e di Y. 

1 calcoli devono essere eseguiti su ciascun set di 
dati seconda le regole riportate nella tabella 5.7). 

Codice Calcolo 

1 e = X + Y 

2 ft - X - Y 

3 R = X # Y 

4 R s X/Y 

5 X Y 

Tabella 5.7 Calcoli per codici diversi 

A questo punto, potete scrìvere un programma 
che tabuli il codice, i valori di X e di Y e i risultati 
dei calcoli. Per controllare quale calcolo deve essere 
eseguito in base al codice relativo, usate l’istruzione 
ON ... GOTO. Dovrete disegnare uno schema a bloc- 
chi del programma, preparare ì dati per il test e 
infine codificare ed eseguire il programma scritto. 
Ricordate che i dati per lì test devono verificare 
tutti i salti del programma. Per quanto riguarda la 
sequenza di ingresso, non esiste un ordine preciso, 
nel senso che, ad esempio, il primo set dì dati può 
avere il codice 3, quello successivo il codice L ece. 
Confrontate poi il voslro programma con quello 
riportato nella tabella A3. (Nell'Appendice B, tro- 
verete i dati per i test e i valori calcolati piò adatti 
allo scopo). 

Un altro modo di impiego della funzione T AB e dei 
loop FOR 

La funzione TAB può essere usata con le -varia- 
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bili o con le espressioni, chiuse fra parentesi e poste 
dopo la parola TÀB, ad esempio: TAB(I). TAB- 
(P 1). Il programma riportato nella tabella 5.8 ge- 
nera un rettangolo di dimensioni variabili, costitui- 
to da due lati orizzontali tratteggiati (LI) e da due 
linee verticali formate da frecce verso Paltò (L2). 


20 PRiNT ,l ?TRPT CGLUNN POEITIOK" 
30 INPUT P 

40 PRINT "LEHGTH «CROSS fi DOWN" 
50 INPUT Lì ■ L2 
60 LET K- ] 

?0 FRINÌ Tfì£<P-ì>; 

30 PEìì OUTPUT BRSHES «CROSS 
?0 POP 3=1 TO LI 
100 F FilNT 11 - 1 ' ; 

1 3 0 ne: :r i 
120 PRINT 

130 IF v=2 THEN 240 
140 R £H OUTPUT “t"S WMi 
150 F OR 1=1 TO L2-2 
160 PRINT TRBCP-I >; "r s ; 

]?Ó POR 1=1 TO LI -2 
IO0 PRINT" 

190 HEXT J 
200 PRINT'-r 1 
210 HEXT I 
220 LET K=K+1 
230 OPTO 70 
240 ENI 1 


Tabella 5.B Program mg par la genera ^rOna di ratta rigeli 

Qualche osservazione siti programma: 

1 Le linee 20 e 40 generano un messaggio per 
l'utente al quale viene chiesto di introdurre dei da- 
ti. 

2 L'istruzione PRINT della linea 70 è chiusa da un 
punto e virgola, il quale fa in modo che la successi- 
va istruzione PRINT eseguita, esca sulla stessa li- 
nea. 

3 La linea 1 20 serve a generare la linea tratteggiata. 
Dopo l’esecuzione della linea 220, che stabilisce 
che K è uguale a 2, vengono ripetute fino al co ru- 
pie lamento del rettangolo le linee dal numero 90 al 
numero 120, dopodiché redenzione del «program- 
ma ha termine. 

4 Le linee dal numero 150 al numero 210 conten- 
gono un loop FOR che, a sua volta, ne contiene un 
altro (linee I 70-190), 

Questo tipo di loop FOR è delio "annidato” e 
ne vedremo in dettaglio le caratteristiche nel capi- 
tolo 8, Ad ogni passaggio attraverso il loop FOR 


esterno, quello interno viene eseguito LI -2 volte, in 
modo che venga generata una freccia seguita da un 
certo numero di spazi e da un’altra freccia. Non 
appena viene raggiunta la linea 190, viene eseguito 
un altro passaggio attraverso il loop esterno Finché 
non sono state generate 1,2-2 linee costituite da una 
freccia, alcuni spazi c una seconda freccia. 

In questo caso. Fuso dei loop FOR annidati po- 
trebbe essere evitato sostituendo il contenuto delle 
linee da 160 a 220 con Distruzione seguente: 

160 PRINT TAB(P-l);” ”;TAB(L1-1 +P);” “ 


* t 

♦ 

t 

+ 

+ 

f 

+ 

A 

T 

4 


Figura 5,2 R ettari goto generaro dal programma 


La figura 5,2 riporta un rettangolo generato dal 
programma precedente ed eseguito con questi dati. 


i quaii stanno a significare che sono stati generati 
20 trattini per le due linee orizzontali e 8 frecce 
per le due verticali, 

Ber acquisire una certa pratica, vi consigliamo di 
introdurre il programma riportato nella tabella 5.8 
nel vostro computer e di eseguirlo introducendo 
dati diversi. Usando poi i caratteri grafici per i 
quattro angoli e ì quattro lati, potete scrivere un 
altro programma che generi un rettangolo di lar- 
ghezza e altezza variabili al centro dello schermo. 
Controllate poi nella tabella A4 il risultato. 

Esercizi 

Gii esercizi riportati fanno riferimento al pro- 
gramma dei nomi e degli indirizzi fornito nella ta- 
bella 2J a pag. 15. 


4 

# 

+ 

4 

4 

4 

4 

4 
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Esercizio L Opzioni di stampa 

Modificate il programma della tabella 2. i in mo- 
do da poter effettuare la selezione di una qualsiasi 
combinazione delle tre opzioni di stampa seguenti: 

Codice Opzione 

H intestazione lettera 

N etichetta registrazione 

L etichetta busta 

F arresto esecuzione prograiia 

Controllate poi il risultato nella tabella à5. 

Esercizio 2. intestazioni di lettera 

Modificate il programma nella tabella 2.1 in mo- 
do da poter introdurre in fase di esecuzione la posi- 
zione di stampa deirintestazione della lettera e il 
numero di fogli intestati. Controllate poi il risulta- 
to nella tabella A 6, 


Esercizio 3. Etichette di registrazione 

Modificate il programma nella tabella 2.1 in mo- 
do che il nome di NS venga generato in posizione 
centrale ai fin terno di un riquadro di asterischi, fa- 
te in modo che il numero di etichette richiesto, la 
lunghezza del nome, e il numero di etichette per 
pagina da generare possa essere introdotto al mo- 
mento dell’esecuzione. Controllate poi il risultato 
nella tabella A7. 

Esercizio 4 , Etichette per busta 

^Modificate il programma nella tabella 2,1 in mo- 
do da far si che al momento dell’esecuzione possa- 

■* 

no essere introdotti i dati relativi al numero dì eti- 
chette necessario e al numero di etichette per pagi- 
na. Controllate poi il risultato nella tabella A8, 

Nota: Per ottenere la stampa del numero necessario 
di etichette per intestazione, per registrazione e per 
busta, dovrete inserire dei loop nel programma de- 
gli esercizi 2, 3 e 4. 
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Dichiarazione dei redditi 


Primavera , tempo di tasse. Questo programma della Bits and Bytes consente Ut prepara? ioti e del 
modello 104 per la dichiarazione dei redditi, 

Il programma , presentato nella versione nastro, gira su tutti i modelli CBM ed è disponibile 
su supporto magnetico (nastro o dischetto} plesso la redazione, 


5 PR I NT " ZT } 2 DIMA $ < 2 1 ) , K< 2 ,, 2 ,^1 > : GOSUB280 

6 PRINTTRE-K4^RV^:FRlNTTRe<^;>fìP^ :PRINTTRB<8>RQ^ sPRIHTRZT ? ; 

? FRINIRLA s F=20 sQOSUB2G0 sRìI^I N$ 

18 PR I NT s PR I NT ; PR I HT *' D I OH I RPfìZ - INDIVIDUALE 0 CONO! UNTA 

11 F=1 SDÙSUB20O : I ; GOTO 15 

12 IF : IN:f= l, C ,t THEHM 1-2 SCOTO 15 

1 3 O 0SUB26 0 : G 0 T 0 1 1 

15 FORBITOMI sPR3HT ,, 3 ,l ;fifì* sPRXNTRZ$ 

16 PRIMT H N. TIPO DI REDDITO REDDITI DEDUZIONI " SPRINT 

20 FQRH=070 1 0 a I FH-4THEN25 

21 PR INTR I GHT$ < STRtf < N+70> ^ 2> ; “ 11 *R.£ <N> 

25 NEXTN SPRINT^"; SPC < 2S 

2b FORN==0TO1 0 a IFM-4THEN45 

27 IFM«THENQ~N+5 sGQTOS® 

20 Q-N+4 

30 GOSUB1302 IFKCM^l ^H><GTHEHGOSUB25©sGQTO30 , 

35 I FH - 1 OR N= 2 0 R H = 5 0 R N= 6 0 RN — 7 T HE H 4 0 

36 GQTQ4S 

40 GGSUB 1 95 s I FK (H , 2 N > C®0 RK< -M ,2,H >>K Ch, 1 ^N>THENGQSUB238 : G0TG4G 
45 NEXTN 
50 G0SUB325 

55 I F I N$= IJ H " THEN95 

56 I F I N$0 " 3 " THEN50 
60 GOSUB330 

65 IFEG70ORE=74ORE>80THEN5G 
7B N=E-?8 :F= -9 s IFNC4THENQ-H+5 :G0T0?5 
71 Q—H+4 

75 GGSUB 1 98 : I FK < M 1 ^N> <0THENGG3UB238 a G0TG75 

00 I FH= 1 0RN=2uRM«5DF:N=6uRH^7THF:N85 

01 DOT 090 

*5 00 SUB 1 95 : J FK £ M , 2 „ H > < GOFF £ FI 2 H > >K < M , 1 , N ;> T H EMGGS U B 2 58 ; mi J 085 
90 GOTO50 

95 HEJÌTM «.©OSUB320 

96 1 TOM 1 : FÙRM2- ITO 2 : F ORN=.0 T 0 ì O ; K < M H 2,11 > =K < M , M2 .,11 > +K «C M M2 , M > ; NEX'TN FI 2 * H 
1 00 FORM- 1 T GM 1 ? I FK <- 1 20@0B3@THEh 1 04 

idi pr i nt M M aaaaiiBaMSiip tptrle deduzioni 

102 FRI NT 11 SUPERIORI R LIRE 12000080 * ,r SPRINT SPRINT"* RI ESAMI NRRE I DAL COL I " 

103 PRIMI 11 FRTTI NEI SINGOLI QUADRI # Jl aFORT-iTO3©00 :NEXTT : GOTO IRÒ 
184 NEXTN 

103 FORM— 1 TOM i 
l IO PRINT P1 Z3 PI jjRB'F sPRIHTRZ* 

1 13 P R I N T " N . GPERRZ- DRTR C - BRHC R I HF' ORTO" a PR I M T 
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1 2 U 

Ì «*”b ET 

c; 

1 26 
127 
1 28 
128 
138 
135 
i 86 


140 

145 

150 

151 
1 52 

155 

1 56 
160 
165 
1 6£ 
Lq>7 
1 68 
1 63 
1 70 
171 

1 "7 ■“> 

1 ”? -■'“j 

V ^ 

175 
176 
130 
i S 1 
132 


130 

131 
,1 35 
136 


*: t:U5 

201 

285 

2 1 0 

■ ■*r 4 C 
^ 1 

220 

225 

230 

235 

240 

-4 1=- 

SiH -, C 

24 fc. 

250 


-** _ h 
25S 
260 
265 
£70 


261 

285 

286 
88 7 


1 ,»J li I 

8 ’=■ o 


F 0 RH- 12 T 013 :PRIMTRIGHT*<STM<N+ 70 > , 2 ) 11 <N> sNEKTH 

PRIMI" 5 jT ;SFC< 28 > ;EmM) ; :F 0 RH=l£TQl 3 :®«>N -7 sF*=e 
PRINTLEFT*<;RR*,-Q) ;SPCCi 2 > ; :GCeSUB 2©0 aCl * CM ,H» U r> = IN* 

:PPINTLEFT*<FfR*,D> ;SPC ( 21 > ; :GQ 3 U 82 ÙU *C 2 £<M,N-I 1 > = IN* 

F= -3 : PR l NTLEF T* < fiR* ,Q> ?SPC< 38 > ; s GOSUB 200 : G 0 SUB 3 1 5 : \, < M , £ , N > = E 

PR I NT L EFT* < AR* , Q > ; SPC < 38 > ; f)S* : SF C C 1 8 — LEM < STR* < K < M , 2 , M ) > > > ; K < H , 2 . , hi > s : NEXTN 

G 0 SUB 325 

I F I 11 S " THEN 1 IO 

IF 3 H*O , ’H ,, THEH 130 

MEXTM 

GGSUB 320 

FORM - 1 TCM^tl sKOl, 2 r M>=*K<f 1 r I , 1 1 > sK(K,£, 15 >=K<F 1 , 2 ., ì 1 > 

K < M , 2 „ 1 6 > =K -C M , £ j. 1 4 3 ™K < M f 2 r l 5 > s E*K < M , 2 , 16 )*! 5 / 1 88 : G 0 SUB 3 1 5 : K C M „ 2 , 1 7 > - E 
K < M , 2 , 1 8 >=K *; n , 2 , 1 2 > +K < M .,£, 13 ) : K< M , 2 , 13 > = K < M , 2 , 17 > -K< M., 2 , 13 > 

I FK C M , 2 , 1 3 > < 8 THENK < M , £ , 28 > =RBS < K < M , 2 , 13 > > =KCn,£, 19 ‘>=8 : GOTO 168 

K < M ,2 , 20) ™8 

NEfcTM 

PR 1 NT H Zittii UAMTE CUF l E Dtì ST FiMPFlRE " ; 

F - - ? s 6 fi 8 U 3 8 0 8 : 0 -F il F H C 0 T H E HGOS U 8 2 6 8 : fin TD 1 6 6 
ìFh"^ l HLH i otf 

PR J NT " SgfSffT I PO 0 1 STAMPANTE < CBFHHON) " ; 

F ~3 :G 0 8 UB 200 rFS^IH* 

I FP*= " CBN 31 THENP -4 : GOTO 173 
I FPi'- " NON " THEHP -5 : GOTO 1 73 
GGSLIB 260 s GOTO 1 63 
OPEN 2 , P 

PRINT^^STSM^ER INIZIARE L.R STRMPR, PREMERE ^ETURH» " : : F =0 :Gu 8 UB 200 
GO 3 UE 400 : FORNC" 1 TOR : 00 SUB 335 sNEXTMC :CL.OSE 2 
PRIMI 11 3 HFÌL TRI ORTI OR ELRBQRRRE <S-N> " ; 

F™ 1 :GOSUB 200 :IFlNf= ,, S 1, THENCLR :G 0 T 05 
I F I NtO " fi " THENGOSU 8268 ; G 0 TO 181 
PRIMI 11 2 ” 7 :END 

PR 1 HTLEFT T < RP^ , Q > SPC < 2 G > .? sGOSUB 20 O 3 GOSUB 3 1 5 : K < M , 1 r N ) »E 

PR I NT L.EFT •$ <RR$ , Q > ? SPC C £ 0 > s RS^ ; 5 P C < 1 0 -L.FM < STR^ t E > > > 7 K < M , 1 . r H > ; 5 RETURN 

PRIHTLEFT-f CHM ,Q> ;SPC>C 38 >; sGGSUBZW :G 0 SUB 315 ;Kai, 2 ,H)=E 

PR I NT LEFTJJ C RR:F , G > : SPC: < 30 > ; RST ; SPC < 1 B-LEN < STR:^ < E > > > ; K i M 2 , M > .? : RETURN 

IH$= M " :N=OiNl:l l =" *' sFl™RBSCF> 

FORW 1=1 TOPI SPRINT " ; sNEXTNl : FORNI = 1 T 0 F 1 3 PRIMI "II"; sNEXTWl 

PR 3 MT ,, m " ; 

GETNT : I FLEH < J HT > =F 1 ANDW^OCHRJ 1 C 20 >ftNDW$OCHR£< 1 3 > ORNT - 31 " THEH 2 1 0 
I FLIT-CHRi < 28 >PHDN= 0 THEHFP I NT 11 |J" s :GOTO 200 
IRW-CHR-^ <£COTHEH £35 
1 FW*«CHR 1 TC 1 3 > THEH 240 

PRINT'ir jW* ; sIH:t=IN^+Ht :M=N +1 ì COI 0205 

PR I NT "Itti liti” p 1 1 N*=LEFT*< I m ,LEN< I H^> -1 > :W=W -1 zGÙTO 205 
PR INT"|| " ; »€« 1 NTCVAL»; IH$» : IFF> 0 THEH 255 
IFIMT"" "THEN 255 

FORM 1 « 1 TGLEN < I N* > : M 1 3 T=N I D# < IH* , M 1 , 1 ) 

IFRSC<Ml*)C 480 RRSCaJl*)> 57 THENF 0 RNl = lT 0 LEM<lN*> + l SPRINT 11 II" r sNEXTMl :GOTOS 0 O 

NEXTN 1 

RETURN 

PRIHT r, ir } 3 GOSUB 260 S RETURN 
IFINT-” " THEHFR I NT " t\ ||" ; aGOTO £70 

FORN- 1 TOLENCIH*) iPRIMT ,, || IHP j sNEXTH : PRIMI M U li"; 

RETURN 

R*v 0 >- J, D. TEFF, <P iR* CI > = n AGRARI <R 

R*< 2 >= ,> RLLE^MENT 0 (Hi)" :R*< 3 > = ,l FRBBRIC<B 
B * < 5 > = ,F I MPRE 3 R <F > " tft*< 6 > = " J MF . MI N . \G G 1> J1 
fi* < 7 > = " PfìRTEC 1 PBZ . <H> M sfi* < S > = " CfiP I TfiLE < I .> n 

fi*< 3 >^" DIVERSI <L> h 10 ) = ll TflSS. IRP.SEP- <M> n 

ft*<ll> = M TOTALE REDDITI E DEDUZIONI " 12 > = ,f VERSAM- ,f 
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291 

292 

293 

294 
235 
296 


293 

299 


302 
3 C43 

304 

305 
30 le 
3 1 0 

315 

316 

S i f 

326 

325 

330 

335 

«3 16 

337 

340 

341 

342 

345 

346 

347 


351 

352 

353 
355 
3 5 6 


361 

362 

363 

364 

365 

366 
367 
376 
371 

375 

376 
360 
365 


ti f - i 3 - " V . mi . " j Rit < 1 4 > " 11 T DIRLE REDO ITI " 

Hi k 1 5 > ^ " TOTRLE DEDUZIONI " : flit < 1 6 > - "REDO ITI I MPON IBI LI 11 
Ai <A7y ::: 11 1 MPOSTR DOVUTA" : A$ < 1 8> = " ACCONTO VERSATO" 

A$< 190™" IMPOSTA DA VERSARE A SALDO 11 

11 IMPOSTA DI CUI SI CHIEDE IL RIMBORSO" 
hh*= m RI EPILOGO ILQR" : AB$=" ACCONTO ILOR" sRCt= M CALCOLO ILOR A SALPO 
FORN= 1 T039 ; AZF-R2Ì+ i NEKTN :FORN= 1 T040 : AI t=fH I $ + ” " : NEKTN 

ARi-" 

ASt=" 

ALT- " IMfliÌilWRiBiiM!lMSltr 

FORM- IT 079 : A JÌ“AJT+ ,h * " ; NEKTN SFORNAI T073 : AVt“AVt+ J1 ; NEKTN 
RUt»' 1 RI FERI MENTO DELLA PRESENTE DICHIARAZIONE 1 ' 

MODELLO 740 - QUADRO 0 W-W.W-" 

AP t - ” CDPVR I GHT 1331 BUS & GVTE3" :AQ:£-" MILANO - TEL. 02/573344" 

BKl > = " DICHIARANTE" CONIUGE" 

B 1 * < 1 > = B* (O: B 1 f < 2 > = " CON I U OE " 

RETURN 

E 1 -VAL < R I GHT* < STR* < É > ^ 3 > > : 1 FE 1 <301THENE=É--E 1 WSGN< E > sGOTG3i 7 
E=E— >; E 1 - i 000 > *SGH < E > 

RETURN 

F R I NT " MI ÌBW I nwwamaft " ; SPC < 5 > .? 11 * ELABORAI I ONE DAT I IN COESO * 1- : RETURN 
PR I NTLEF T T < hE£ 20 > .? ALT ; "CGEREZ I OH I < S-N > " s sF= 1 ; GQSUB200 : RETURN 
p R i h T L EFTT < A R $ 2 0 } ; ALT;" QUAL E E: I G 0 M ; ; l-i - - 2 i 3 O SUB 20 0 : R E! TUR M * 

S: S 0 sPETNTttP.AV* :PRINT#2 r " " SPRINT #2 - AUT s " : " sRt 

F'RIMT#2, "DICHIARAZIONE s ” ; i IFMi— ÌTHENPRIHT#2r " INDIVIDUALE " sGOTÙ340 
PRINT#2 J , "CONGIUNTA” 

PRlNT#2^ftJt :PRINT#2^ M ’* ;PR I NT#2 ^RAi ? 3PC<28> 1 > jsSPC< 1 4 > ;B 1 T<2> 

PR I NT #2 , "NO - " sSF'CC 10) ? 11 TI PO DI REDDITO" ;S PCC 1 1 > ; "REDDITI DEDUZIONI 
PR I NT #2 , "REDDITI DEDUZ I OH I 11 ; PR I WT#2 . AVT 
FORN-0TO1 1 s IFN*=4THEN34? 

GGSUB380 : D03UB335 
NEKTN 

PEINT#2.,flJ$ :PRIHT #2.. " " 

PR I NT #2 AB* s SPC C 1 1 > ; A* < 1 2> ;B1 * < 1 > jSPC (11) ; At <12> sBl M < 2> 

PR I NT #2 ? " NO- OPERAZIONE" ;SPC<6> ; "DATA COD- BANCA IMPORTO 11 } 
PRINT#2., "DRTR COO. BANCA IMPORTO” : PR I NT«2 AVt 

FORM™ 1 2T01 3 

G0SUB3S0 ; F R I NT #2 SPC: < 14--LEN < Hi < N > > > : 

PRINT#2^Clt< 1 ;SFC< 10-LEH<Cli 1 1 .-N»-l l>>>,?C2t< 1 ,N-1 1 > ; 

FRINT#2VSFC< I9-LEN<C2t< 1 ,N-1 1 > > -LEH< STPi'<K< t ,2?N>>>>;K< 1 ^2..N>; 

PR I NT #2 r SPC < 1 > ?Clt<2^N-l 1> ; SPCC 1 &-LEU<Cl $< 2 . N- 1 1>>> rC2t<2,,N~l 1 > ; 

PR I NT#2 ^ SPC< 1 9-LEN<C2t (2,N-11 > > -LEM < SI Rf < E < 2 , 2,N> > ) > j K <2,2, N > : NEKTN 
FORM- 1 2TD 1 3 : FORMAI TG2 ; I FK*C M , 2 ^ N > >3TNENS“S+ 1 

NEXTM . N sPRI NT#2 .. SPC<5> > M SI ALLEGANO N. " ;S; "ATTESTATI DI "?Ata2> 
RRINT#2^HJt SPRINT# 2, " " 

PR I M7#2 ,R€ * ■ SPC ^ 26 > ;B 1 K1 > ? SPC < 4 > B 1 1 K 2 > :PR I NT#2.RVt 
FORN= 1 4TO20 :G03UB3SG :FR I NT #2 , SPC < 52— LEN C At < N > >— LENC STRf t K >C 1*2,. N>>>> 
PR I NT #2 K (1,2 , H > SPC ^ 1 ©-LEM STR t C K C 2 , 2 , N > >>>fKC2^2^N>: NEKTN 


PRINT#2.ffiJt :f'RINT#2^SPCK9> ; "ELABORATO CON SOFTWARE BIT 


q <i 


BVTES -- 


337 

3SS 

390 

331 

333 

395 

40© 

405 

410 

415 

420 

425 


FRI NT#2 , " MILANO - TEL . 02/57^344 M s FORM- i 1025 zPP. INT#2 . " " : NEKTN s RETURN 
PR I NT #2 t R I GHT t < STRt K N+7@ > ,2>; " -■ h ' ìAt<N> ,s : RETURN 
Pft INT#2,SPCC41-LEN>CH:f <N> > -LEH< STRt<K< 1 ,, 1 ;K< 1 ,1 ? 

IFH=IQRH=20RN=50RN=6DRN=70RN=1 1 THENPRI NT#2,SPC< 10-LEH <STRt < K < 1 ,2.*N>>>> 
lFN=l0RN=20RN=50RN=60RN^70RN=nTHENPRINT#2^KC 1 . ^ .* H !> > :00T0390 
PR I NT#2 r SPC <11 ì ; 

PR I NT #2 , SPC: < 10-LEN<STRt<K<2 r 1 .N>) > > ?K<2., 1 .,N> ; 

I FN™ 1 ORN = 2 ORH “50R N=6 ORH- 7 0 R N — 1 1 THENPR I NT#2 * SPC < 1 0-LEH ■; ST Ri < K < 2 , 2 N > > > > 
I FN- 1 Ci F. H = 2 O RN— 5DR N ~ & iTRl-f — 7 0 R N — 1 1 THENPR I NT#2 K C 2 , 2 ^ N > :G0T0335 
PRINT#2," " 

RETURN 

Ai <0>=5 ,f DOMINICALI TERRENI < A — A AI S > " s Ai >C 1 }“" AGRARI <A - R BIS>" 

Af <3^ “"DI ALLEVAMENTO CAI > " sRÌC3>="DEl FABBRICATI <B - B BIS>" 

RÌC5> — "DI IMPRESA ■; F > " IMF RESA MINORE <G - Gl 1 11 

fìi<7> ="DI PARTECIPAZIONE <H>" iAt<S>«"DI CAPITALE U > " 

AÌ<10> = "R TASSAZIONE IRPEF SEPARATA < M ) n ;fl$U2> H " VERSAMENTO " 

13>=" VERS* INT- " ; RETURN 
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Il PEI è un computer universale, A volte, però , può essere utile convenire per questa macchina 
alcuni programmi originariamente scrìtti nei dialetti basic di altri personal. Ecco il primo d una 
serie di articoli scrìtti per illustrarvi come effettuare tale conversione. 


PUÒ' capitare a volte di veder 
“girare", su personal computer 
diversi dai modelli Commodore, 
alcuni programmi che potrebbero 
esserci utili. * 

Dovrebbe esser noto che non 


è possibile registrare tali pro- 
grammi su di un supporto magne- 
tico e trasferirli in seguito sui 
PET o sul VIC, Si sa infatti che le 
procedure di registrazione su na- 
stro o mini-floppy cambiano in 


modo radicale a seconda della 
marca del computer pur se il lin- 
guaggio utilizzato, quasi sempre 
il basic, è lo stesso. 

Una cassetta contenente un 
programma scritto da un Apple 
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non viene accettato, tanto per fa- 
re un esempio, da un sistema 
CBM o da un Atari o da un Tan- 
dy, Ecco quindi perchè, tra l'al- 
tro, prima dì acquistare un com- 
puter, è bene documentarsi sulla 
reale popolarità e conseguente 
diffusione di quella marca, pro- 
prio per evitare di ritrovarsi in ca- 
sa una macchina che presenta 
forse il vantaggio di un basso co- 
sto iniziale, ma grosse difficoltà 
dì approvvigionamento di pro- 
grammi che evitano la fatica di di- 
gitarli,. 

I felici possessori di modelli 
Commodore sanno bene che è 
piuttosto semplice incontrarsi 
con numerosi appassionati dispo- 
sti a scambiare, vendere e (perdi è 
no? ) regalare programmi a chi ne 
Ila bisogno 

II personal computer più dif- 
fuso* dopo il Commodore ovvia- 
mente, è l'Apple che, pur se uti- 
lizza il Basic Microsoft, presenta 
alcune istruzioni in più ed alcune 
differenze di interpretazione che 
qui di seguito riporto per consen- 
tire dì far girare sui PET-CBM i 
programmi Basic deir Apple. 

* 1/ Statement con nessuna diffe- 
renza dì significa to o uso nelle 
due macchine, 

ABS(X) ASC( Stringai ÀTN AND 
CHRS(X) CONI COS DATA 
DEFFN(X) DIM END EXP FOR 
.,/rCL.STEP FRE(X) GET CO- 
SE B GOTO IR.. GOTO IR,* 
THEN INPUT INT(X) LEFTS 
LEN LET LIST LO AD LOG 
MID$ NEW NEXT ON...GOSUB 
ON...GOTO OR POS(X) PRINT 
R E A D R EM RESTORE RE 
TURN RIGHTS RND RUN SA- 


Apple 

PET 

CLEAR 

CLR 

Ctrl C 

RUN/STOP 

(Tasto) 

HOME 

PRINT “ ” 

(Tasto CLR/HO- 
ME) 

IN# 

INPUT # 

1 A « 

(Shift-0 CRSR 

INVE RSE 

PRINT “R” (Ta- 
sto REVERSE) 

NORMA L 

PRINT (Ta- 

sto OFF RE VER- 
SE) 

PR# 

PRINT# 

REC ALL 

GET# INPUT# 

* » « 


CRSR 

STORE 

PRINT# 


VE SGN SIN SPC SQR STEP 
STOP STRS TAB TAN VAL- 
(Stringa) WÀI'J 

* 2/ Statement che , pur posse- 
devi do la stessa sintassi, provocati o 
e ffe iti p rofo 1 1 da t n en te. d i v ersi 
nelle due macchine : 

PEEKfX) POKE X,Y USR(X) 

La prima di queste tre resti- 
tuisce ÌI valore contenuto in una 
particolare locazione di memoria. 
Molto spesso, nei programmi Ba- 
si c di una certa complessità, 
distruzione PEEK si riferisce a lo- 
c azioni utilizzate dal Sistema 
Operativo (O S.) che risulta com- 
pletamente diverso da macchina 
a macchina e che indica, per 
esempio* se c quale tasto è stato 
premuto, se una particolare cella 
del video è vuota o contiene un 
carattere, eccetera. 

Per io stesso motivo l’effetto 
di un POKE, che scrive un valore 
in una locazione di memoria e 


quello di un USR(X), che fa par- 
tire un programma scritto in lin- 
guaggio macchina può risultare 
disastroso* 

E" opportuno allora che solo i 
lettori più esperti si cimentino 
nella trasposizione di programmi 
da Apple a PET che contengano 
anche una sola delle istruzioni 
descritte e solo a patto che pos- 
seggano la mappa della memoria 
dell'Apple per individuare ['esat- 
to significato delle tre istruzioni 
prima descritte* 

■ 3 / Comandi che, con differente 
sintassi, provocano lo stesso ef- 
fetto , 

*4/ Comandi non disponibili sul 
Pet e che non possono essere so- 
stituiti da semplici routine emu- 
lative scritte a parte: 

COLOR DRAW GR HCOLOR 
IIGR IIGR2 ON ERR GOTO 
POP RÉSUMÉ SPEED 
*5/ Con ì aridi non dlspo n i b ili su l 
PE Tm a eh e. p a ss ori o essere sos ti tu f- 
tidasemplici routine dì e saranno 
tra breve presentate su Computer 
Club: 

CALE DEL HL1X HPLOT HTÀB 
REPEAT VLIN VTAB FLASH 
PDL SCRNfXjY}* 

* 6/ Comandi disponibili sul PET 
fornito di scheda grafica: 

DRAW PLOT SCALE XDRAW, 
eccetera. 

* 7/ Comandi disponìbili sui PET 
fornito di ROM speciali o dì pro- 
grammi oern commercializzate da 
ditte specializzate: 

NOTRACE TRACE 

* 8/ Comandi non necessari sul 
PET in quanto automaticamente 
eseguiti dal Sistema Operativo: 
HIMEM LOMEM TEXT. 


Computar Qtub ■ 43 




Conversione in base 


QUANTE volte vi siete trovati ad ! 
eseguire dei calcoli di conversio- 
ne da una base ad un'altra? Caso 
tipico è la conversione da esade- 
cimale a decimale o viceversa. 

Certamente moltissime volte 

In commercio esiste una cal- 
colatrice della Texas che, oltre a 
fornire la possibilità di calcolo “ 

+ - x può convertire qualsiasi 
numero espresso in una qualsiasi 
base prevista in un altro numero 
in altra base. Le basi previste so- 
no le solite: decimale, esadecima- 
le, ottale e binaria, 

Con questo programma ho vo- 
luto evitare sia la tediosa ricerca 
di questa rara macchinetta ed al 
tempo stesso risparmiare denaro. 
Infatti questa TJ. costicchia. 

Il programma in oggetto pre- 
vede un 'interessantissima routine 
che traduce un numero dì qual- 
siasi base a qualsiasi altra base, 

derò* in riga 310, limito il nume- 

■ ■ ■ 

ro delle conversioni a quelle di- 


rettamente richieste dallo scopo 
prefisso. Nulla ci vieta, però, mo- 
dificare il valore della variabile 
BI% (Base Input) che ho fissato a 
1 0 ed i valori della variabile BO 
(Base Output) a cui ho fornito di 
volta in volta i valori necessari 
(16,8,2 esadecimale, ottale, bina- 
rio). 

Grazie all’opzione di stampa è 
possibile ottenere una hardcopy 
della lista delle conversioni in 
maniera tale da poter archiviare a 
rno’ di tabellìna gli utili fogli di 
carta pronti in ogni momento al- 
le future consultazioni, 

L’esecuzione del programma è 
a ciclo continuo ed infinito, sarà 
quindi vostra la scelta del quando 
interrompere le elaborazioni. 

La routine di stampa prevede 
futi lizzo delle OPEN di format- 
tazione di maschera di riga, fatto 
questo ben poche volte utilizzato 
su questo tipo di stampante. Già 
che c’é, approfittiamone. 

Gii invece non fosse possesso- 
re di una 3022 o 4022 potrà 


stampare le singole variabili sfrut- 
tando lì medesimo principio del- 
Tevìdenziazione sullo schermo; 
osservate a questo scopo le righe 
330 e 340, 

La routine di conversione in 
base potrà essere utilizzata in al- 
tri programmi, basta sapere che: 
NIS - numero di input espresso 
in stringa; 

BI% - valore numerico della base 
di input; 

i 

BO% = valore numerico della ba- 
se di output; 

GQSUB 360 = richiamo alia sub- 
routine; 

NOS = numero di output espres- 
so nella base di output; 

Potrebbe essere interessante 
modificare il presente program- 
ma in un altro che preveda la 
possibilità di calcolare e trasfor- 
mare un qualsiasi numero espres- 
so in una qualsiasi base in un al- 
tro espresso in una qualsiasi altra 
base. 

Divertente, istruttivo, utile. 
No? 
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110 
120 
1 30 
140 
150 


CONVERSIONE E PRIHT DR NUMERO BECHI RLE R NUMERO IN ERSE 

EShDEC IMRLE OTTflLE BINARIO 

SU VIDEO E SU STAMPANTE TI Fu 3022 0 4022 


170 

130 


200 
2 1 U 
220 
230 
240 
250 


270 
280 
230 
300 
3 1 0 

— j “i l“j 

.Jiitl 

330 

343 

350 

360 

370 

389 

390 


410 

420 

430 


450 


470 

430 


500 

510 

ws$ 

530 

543 

550 

560 

570 

580 

5:90 


610 

£2@ 

630 

640 


primi vuoi la stampa ? »; 

GETP$ : l FFf = N S 11 THENGOTO220 
I FP$= " N " THENP$=" " ; GOTO270 
GOT 0 1 90 

GPEN2 ,4 j 2 - OPEN 1,4,1 : 0PEN3 , 4 , 3 
0PEN4 , 4 : FRINT#4, "IT’ ■ CLOSE4 

F$=" :4! 22222 3= flfìflR S! hfihfi 3! 9999939 $9399939299 SI" 

PRINT#2, F$ 

PR I NT #3 , £7 : CL0SE3 
PRIHT "FI'’ 

Biniti 

NX=NX+1 -NIMSTRttNX) 

NITORI GHTf ( HIT, LEM < H I $ > - 1 > 

EOX=l fi : oriSUB350 : NlÌ=HOi : •• B0X=8 ■ G0SUB368 • N2*=NG$ • E0%=2 : GOSUBSbO 
I FP$0" "THENPRINT# 1 , VhL< H I$> ; N l$i CHRf <29 > : H2$ ; CHR*<29>J VflUNO* ) 
PR I HTR I GHT$ < " “ +N I* , 5 > , R I GHT$< li +N i f , 4 > , ; 

PRIHTRIGHTf < " "+N2*,4> , RI GHTf < " " +NO$ , ICO 

GOTO2S0 

Nuf=" " ■ REFI BASE COHV SGUBROUTINE 
REM ** CONVERSIONE DECIMALE ** 

LK=LEN<NI#> 

DEC-0 

PWR?Ì=0 

FORJ-LJiTOlSTEP-1 
K.*;= fi SC < M I D# < N If , J , 1 > > 

I F KJi> 64THENK;;=K X- 7 
KX=KX-4* 

i fk:-:<bi:;finbk>;>-ithen500 

FRI NT "INPUT INVALIDO PER QUESTA ERSE", 

PRINTEIX 
HO$= "????" 

RETURN 

DEO=DEC+KX*B I X tPWRX 

PWRX-PWRX+1 

HE NT J 

REM m CONVERSIONE IH ERSE ** 

H*= " 012345S739RBCBEF " 

NC$=" " 

PI4RX=LOG C B E C > /LOG < BOX > 

FORJ-F'WR/T G0STEP- 1 
XX=INT<BGXtJ> 

CH/-BEC/NX 

NOf-HOT+N I Df (. Hf , CHX+ 1 , 1 > 

DEC- 1 NT <DEC-CHÌÉ#XX > 

NE/T J 
RETURN 
END 
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Questo programma gira sul Vie 
20 senza bisogno di espansioni di 
memoria . il gioco consiste nel 
cercare di percorrere lutto il labi- 
rinto in un tempo massimo di un 
minuto e trenta secondi. 

Lungo il percorso si incontra- 
no dei puntini e dei cerchi che 
valgono rispettivamente 10 e 100 
punti. M punteggio massimo rag- 
giungibile è 4980. 

Air inizio del gioco appare al 
centro dello schermo una pallina 
nera; i tasti per muoverla nelle 
q u a 1 1 r o direzioni sono: 

ic T t c fc-t t * 

J— b a, T * * ■ 

Ed ceco ora alcune spiegazio- 
ni sul listato per eventuali modi- 
fiche: 

* la linea 6 pone gli indirizzi di 
inizio della mappa dei caratteri c 
dei colori; 

* la 710 pone il tempo massimo a 
un minuto e trenta secondi; 

* il sottoprogramma 800 crea una 
piccola attesa. Modificandolo o 
addirittura eliminandolo si può 
variare la velocità della pallina. 


Giampaolo Cervone 

Vici Vincenzo Rido, 10 
90130 Palermo ■ Tef. 5&006I 


2 FM=0 : P0KE36879 > 29 

3 F*0 

6 Cfì-7688 : 00=38400 
3 GOSUB 1700 : G0SUB1 000 : GOSUB 1 506 
10 I=Cfi+252 : J=CQ+252 
20 POKEI/31 : P0 KEJj8 
25 TI $="003000" 

100 I FPEEK < I -22 ) = 1 02GOTO 1 20 

105 3FPEEK< I-22)=46THENP=P+10 : F=S = GOSUB3000 

106 IFFEEKa-22>-87THENP=P+ì00:F=i;GQSUB§000 
110 PGKEI , 32 : 1-I-22 : J=J*22 : P0KEI / SI : P0KEJ, 6 
112 GOSUBS00 

120 GETfì$: IFfìt*" i “GOTO200 
122 IFR$="L"GOTO380 
126 IFR$ a ” . "GOT0400 
128 GOSUB700 
130 GOTO 100 

200 IFPEEK<I+1)=102G0TD220 

205 I FPEEK< I + 1 >=46THENP=P+ 1 0 : F=0 = GOSUB3000 

206 1FPEEK(1+1>=87T-HENP=P+100:F=1 : GOSIJB3000 
2 10 P0KE 1,32=1=1+1: J=J+ 1 : P0KE 1.81= P0KEJ, 6 
212 GOSUB800 

220 GETR$:IFfl$=“P" GOTO 100 
222 IFR$="L"GOTO300 
226 IFR$=" , "GOTO400 
228 OOSUB700 
230 GOTG200 

300 IFPEEKCI-l)»102GOTO320 

305 IFPEEKC1-1 )=4STHENP*P+10 ; F*0 : GQSUB3000 

306 IFPEEKf I-1)=87THEHP=P+100 : F=1 :GGSUB3080 
310 P0KEI , 32 : 1=1-1 : J=J-1 : POKEI , 81 : POKEX 6 
312 GOSUB890 

320 GETfl$:lFfi$= , 'P"GDT0100 
322 IFfit»".: "GOTO200 
326 IFR$=". "GOTO400 
328 GOSUB780 
330 GOTO 300 

400 I FPEEK < I +22 ) - 1 32GOTO420 


Computer Ctufr - 4 ? 


405 l F*EEK 0+2 2 ) ssi 6THENP as P+ i 0 : '=8 : GOSUB3860 

406 I FPEtKf 1+22 >=87THENP-P- 108 : F«i : GDSUF3888 
f i i 0 Pp;<6 1 , 32 ■ T-1^22- 7= J+22 : PQKE 1 , 31 : PQKE J. 6 
412 GO3UES00 

420 GETR£ :IFP$= a P ll GO“Oi00 
422 : "OOT0200 

426 IFR$= :, L"GOTO300 
428 GO8UE700 
480 OOTO400 

700’pRINT”»' 1 .; :PRINTTRBa6>niP^<TT$,4, !> 11 : "RIGHTJOI* ,2) 

710 IFV0L ( T I DM £90070750 
720 RETURN 

750 PGKE36378 05" F0KE36376 ^ 200 * ^GR^-i TG503 ■ NEX ? . 

755 I F PM < ? 7HE NPM - P 

760 P0KE3687S, 2 ■ D 0KE3687S. 0 : ^1^"®'* ; : priHTTRBC J3) ,f SHl : t! PN 
765 ?RI10T ,! $ PREMI Fi PER 050CRRE ri 
770 OET I^$O N S“THE!4770 
775 GOTO? 

900 FORT» % +050 : WF>T : RE T URN 
1,000 C ORK~22 T O505 
1010 OGSU82580*NeX T 
1020 RETURN 

1500 RtfìUK i IFK- 1 088THEN1 526 

1520 GOSUB2000 

1525 GÒT 01500 

1526 REBBIO IFK“Ì009THEHRESTORE : RETURN 

1527 SOSUB2200 
1529 00^015 26 

1580 BRTP46, 4~ . 46 , 46 ,- 50 58 , 56 .■ 60. 72 . 74 , 75. 76 .• 78 80 , 82 , 88 , 34 , $5 , 86 , 89 

1 521 t!R r R98 - 91 . 22 , 84. 66 . 98 , 1 00 , 1 92 , 194 , 196 , 1 99 . ! 1 1 , 118.0280 22 , 1 24 , 1 26 
1582 BRTR12EU 183 ,. 134. 185.- 136. 133 - 14@ 142. 144 . Ì&S 148 . 152. 155 ■ 153. 169. 162 

1533 BFFRIS*, 166. 168. 179.. 172. 177. 173. 179 = 180.. 132 184,. 196. 133.190. 192- 196. 199.202 

1534 MT R203, 20* <205. 206. 208,-210 ,21 1.212.218 <216,218, 221 .222. 223.224.288.236 

1 535 19^2*0 , 2*6, 247. 2*8 2*3 , 25G , 251 . '252. 258 , 255 . 256 . 257 . 258 . 269. 262. 265 . 266. 274 
| 1536 BRTR29B. 281 . 232. 283. 284. 239. 290. 291 . 292. 233. 294. 296.298. 3 ©0, 302. 389. 310.311 

1 537 3PTR216 ■ 220 . 322. 32 a , 325 , 326 , 827 , 826. 331 . 394 , 836 , 337 , 338 . 340 . 3*2 .344, 346 

1 539 BPTS850 , 35? , 355. ■ 362, 364. 366 ■ 863 ■ 370, 371 , 375, 373, 373*330. 881 # 882. 333 > 334, 385 
153? DFTR336 , 337. 383. 338 , 390, 39 1 392, 397 , 3 99, *0S , 483,414,416 ,419,421 , 422 . 423 , 424 

1540 BR7R425.426, *28. 430. *33: 433,484-435.436; 433. 441 , 460, 463. 464,465, 466, 467 

1541 rRTP465, 469, 470, 471, 472, 473, 474, 475.476; 477. 478, 479, 480.481 -432, 1000. 

1542 BRTMS, 52.56,93,6*, 99,- 116, 117, 180, 108, 150, 174, 13* 014, 217, 233,254, 267.313,3 


154? BRTR323. 335, 372. -377^15,427 431,446.456,1000 
!7O0 FOPH-0TO21 - FDKECR+H, 127 ■ POKECP+H. 0 : NEXT : RETURN 
2330 POKECR+K . 46 : frkeCO+K , 0 : RETURN 
2280 PDKHCP+K ; 37 : FOKECO+K, 0 ■ RE T! JPN 
25O0 POKECR+K-. ■ 02 < ^OKECOK, 2 - RETURN 

3033 °CKE36378. 15 ■ P0KE363??“^. 240 : pqRt« 1^040 : NEXT : *QKE36G7~-F, 3 
33 1 3 *R 1 ut " F'UNt * ■ ri £ 

3020 7 Fp^dgegrr «EhFR I ^ 11 s* RRV ISSINO Jl *G 0 TG ?55 

3100 RETURN 
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AB A: la microinformatica 

chiavi in mano. 


ABA ELETTRONICA non si limita a trattare la più 
ampia gamma di marche e di modelli per tutte le ap- 
plicazioni, da quelle hobbistiche alle gestionali. 
ABA ELETTRONICA mette a vostra disposizione il 
mondo della microìnformatica, dai corsi di istruzio- 
ne a vari livelli, all'assistenza tecnica più qualificata, 
alia vendita di periferiche, accessori e pubblicazioni. 
Vi aiuta a scegliere inoltre. Nella sua sala di dimo^ 
strazione è possibile provare e confrontare quanto 
di meglio offre oggi il mercato. E quando avrete 


deciso per un microcomputer, ABA ELETTRONICA 
vi propone di scegliere la forma di acquisto che pre- 
ferite. Anche in leasing o per corrispondenza. 

Infine ABA ELETTRONICA vi fornisce tutti i pro- 
grammi, standard o su misura, siano essi gestio- 
nali, professionali o scientifici che Vi necessitano 
provvedendo anche alTaddestramento dell opera- 
tore sul sistema che avete scelto e su tutta ta mi- 
croinformatica che lo riguarda. 

Chiavi in mano. 


Quella del Commodore, 

ad esempio. 

il*. 
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\\\m ELETTRONICA 


Il centro piu completo 
a memoria di computer. 

Vendita, Program magone e Assistenza: 

ABA ELETTRONICA - 10141 Torino - Via Fossati 5/C 
TeL (Olii 33. 20 .65/38, 93, 28 


1 TT 1 1 '• ' ■■'.'•'V ■ 1 ■ ' ' ; 1 ' 

1 | 



Nome 


t 

Cognome 

« ffl 

J vtn 


| Città Telelonù 

— _ A 













un vero sistema 


con una bella sorpresa 
anche nel prezzo 


CODICE PRODOTTO 


Listino prezzi del V1C 20 e di alcuni accessori 


Vie 20 UN SISTEMA COMPLETO 

VIC 20 Home Computer 

Memoria base SK. 255 combinazioni di colori. 3 voci, BASIC residente, 

$i collega diretta mente a qualsiasi televisore 

VIC 1530 Registratore a cassette 

Per memorizzare facilmente programmi e dati su normali cassette magnetiche 

VIC 1515 Unità stampante 

Slampa velocemente su carta normale quanto appare sul video: programmi, lettene, dati, grafie] 

VIC 1540 Unità a disco (Floppy Disk) 

Vdoce unità di memoria di massa ad aita capacità. 

Può immagazzinare fino a 170.000 caratteri su ogni singolo disco 


PREZZO LIRE 
(IVA esclusa) 

423.000 

120.000 

650.000 

600.000 


MEMORIA D’UN GRANDE COMPUTER 

VIC 1210 Cartuccia da 3K di memoria 

Espande la memoria RAM del VIC di 3R 

VIC lIlO Cartuccia da SK 

Espande la memoria RAM del VIC di SK 

VIC 1111 Cartuccia da Ì6K 

Espande la memoria RAM del VIC di 16K 


66.000 

98-000 

172,000 


Vie 2013 

È FACILE PROGRAMMARE CON IL VIC 20 

VIC FORTH 

95. non 

ViC 2501 

Con questo nuovo linguaggio il VIC 20 si potenzia con una gamma infinita di possibilità (Cartuccia) 

Introduzione al BASIC ■ Parte prima 

24.500 

VIC 2502 

Introduzione al BASIC ~ Parte seconda 

24,500 


Un manuale dettagliato in due parti per apprendere il linguaggio BASIC. 

Ogni parte è corredata da un volume e da 2 cassette con numerosi esempi 



Vie 1901 
Vie 1902 
ViC 1904 
ViC 1905 
Vie 1906 
VEC 1907 
VEC 1908 

VIC 1909 
Vie 1910 

Vie 1912 

VIC 1919 


T-l 


LA GIOIA DEI VIDEOGIOCHI 

Avenyer (I vendicatori) 

Gli invasori spaziali stanno assaltando la terra. L astronave si difende sparando ed evitando di essere colpita 

Star Baule (Guerre Stellari) 

Una serie di astronavi nemiche attacca En forze. Rapidità e precisione sono necessarie per la vittoria 

Super Slot (Slot machine) 

Simile die macchine writang^asoIdU di Las Vegas, Ita effetti musicali e sonori di grande impatto 

Jelly Monsters (1 mostri di gelatìna) 

Dei mostri-fantasmi in seguono il giocatore. Bisogna completare il percorso senza essere presi 

Alien (Gli extraterrestri) 

Quattro extraterrestri contendono il labirimo all'astronauta. Solo la foro eliminazione porta alla salvezza 

Super Lamder (Atterraggio lunare) 

L 1 astronave deve atterrare su un pericoloso pianeta. Per una manovra perfetta ci vuole un ottimo pilota 

Poker 

Come al casinò è possibile vincere o pèrderò grandi fortune. Disegni dettagliati ed effetti sonori 
danno un aspetto di vero realismo 

Road Race (Corsa automobilistica] Riflessi pronti ed abilità di guida sono indispensabili per non usare di strada 

Rat Race (Corsa del topo) 

11 percorso è pieno di gatti e di pericoli. Solo un topolino in gamba può mangiarsi tutte le porzioni di formaggio 

Mole Attacks (L'invasione delle talpe) 

Ci sono sei buchi nel terreno e le talpe fuoriescono in continuatone. Non è facile impedirlo 
con un solo giocatore ma noti è impossibile 

Sargon Chess (Scacchi) 

Secondo gli esperii é un'ottimo programmai di scacchi provvisto di sei livelli di difficoltà: 
il VIC è uno sfidante eccezionale 

Interfaccia IEEE 488 per VIC 20 


41.000 

41.000 

41.000 

41.000 

41.000 

41.000 

41.000 

41.000 

41.000 

41.000 

41.000 

175.000 


PtoKit ìp vtgWtf dol 3 ! o e soggetb a pilori? TìfjQrif^ 






Corde del mio computer 


Volt ie crearvi un archivio elettronico per memuinzare gli accordi dì chitarra più usati* Ecco il 
programma die fa per voi * 


COME è noto a tutti coloro i riempire le stringhe dati con la 
quali suonano o hanno suonato codifica dell’ accordo, dopo di 
una chitarra ritmica, gli accordi, che chiede il nome dell’accordo 
sugli spartiti, non sempre sono da cercare. 


rappresentati sulla classica mta- 


Do vendo fai stare ben 132 ac- 


voiatura con le relative posizioni cordi in soli 3500 byte se dovuta 
delle dita. Diventa cosi necessario sfruttare la notazione anglosasso- 
ricorrere a costosi libri di accordi ne molto più sintetica, cosi ii Do 
nei quali la ricerca di qualche co- = C: R e 35 D; Mi - E; ha = F; Sol 
sa di utile è spesso lunga e diffi- = G; La = À; Si = EL 


collosa a causa del gran numero 
di posizioni descritte. 


Per quanto riguarda le tonali- 
tà tra quelle fondamentali sono 


Ecco dunque un programma riportati solo i diesis perchè già 
semplice ma <a parere mio e di presentì sulla tastiera. 1 bemolle 
quelli che r hanno usato) molto possono comunque sempre essere- 
utile e chiaro soprattutto nella trasformati in diesis come ben 
presentazione grafica delfaccor- sanno coloro che di musica se ne 
do ottenuta sfruttando i caratteri intendono appena un poco, 
grafici del Vie. Se l'accordo è presente in me- 

li programma non fa che moria viene disegnata la tastiera 

1 con la posizione delle dita e le 

2 REM# indicazioni di quali dita usare. In 

3 REM# RLESSRNBRG CRT IRMI caso contrario viene segnalata la 

4 REM# mancanza del nominativo in me- 

5 Perii# 132 RC CORDI moria s sì nassa ad un nuovo i ri- 
fi REM# 

7 REM###############*##### 

10 K~13i : G0SUB12@ 

20 INPUT 1 ' ACCORDO <IN INGLESE) 11 jfl#: PRI NT ,r 3B8 ACCORDO - 
30 PRIMI " KM" : PRIMI" r- — r- t— r ,T -fìì^' 1 MISI 
-I 1 ! f' 1 

40 F0RT~1T04 : PRINTR1 $ : PRlNTR2t : NEH! : PRIHTR1 £ : FRI NT 11 ^ 
50 I FF>KTHENFR INI 11 □MH9 NON MEMORIZZATO 1 ' : FORTUITO 1000 
60 IFRIGHT$<CÉ<F» J .LEN<CÌ<F)>-12)OR*THENF=F+l ‘GOTO50 
70 ■ b$=C3kf> 

00 PGRT - 1 TC 1 2STE D 2 

8-1 

82 FRI MITRE <3>Z$ 

B3 IFZ^ l, X ,, ORZf- fr e t THENPRINT ,f r; - NEXT : 30T096 
04 PRINr'T; ‘PRIHT7 RBCVRL^MID^<I!$jT+1/ 1 >>#2)"*“ 

95 PRINT"^"; : NEXT 

96 PRINT"MSPEE CONTINUARE PREMERE IR BARRA SPAZIATRICE 
100 GETD$ : IFIrf-O 1 ’ "THE NI 00 

110 GOTO 20 

120 DIMCS(K) ' -ORT~07OK : REABC$<7> : NE><TT : RETURN 


put. 

Il codice di memorizzazione è 
ÌI seguente: per ogni accordo vie- 
ne data una serie di dodici cifre. 
Di esse la prima di ogni coppia 
rappresenta il numero del dito (0 
= corda libera, X = corda da non 
suonare, dalfuno al quattro ri- 
sp et t iva m ente \ n dice, m ed io T a n u - 
lare e mignolo), mentre la secon- 
da Indica a che tasto deve appari- 
re il punto nero indicante la posi- 
zione del dito. 

Per chi avesse molta memoria 
a disposizione (es. espansione 
grafica o 16 K) si consiglia di ag- 
giungere anche altri accordi op- 
pure di cambiare quelli dati. 
Buon Concerto a tutti. * 


Alessandro Cattani 

Via P. Ttìulliè, 11 - 20136 Milano 
Te!. 8397776 


" m 

1 1 ; p:R2$=" 


• n : F=0 


NEH! : G0T029 


Computer duù ■ S i 


121 BfiTfi00ll002233XXC,XXH004333XXC4,XXlll 12233XXC5+,XX45352413XXC5-, 1324453513X 
XCM 

122 DRTRXX45 i 335 1 3XXC7, 112211 3344XXC# , XX4736261 4XXC#4 , XXI 2 1 22334XXC#5+ , XX463S251 
4XXC#5- 

1 23 BOTRI 42546361 4XXC#M , XX46 1 436 1 4XXC#7, 22331 200XXXXB , 3323 1 200XXXXB4 

124 BRT0XX 1 31 32435XXE5+ , 22331 100XXXXE5-, 1 1432200XXXXBM, 32 1 1 2200XXXXB7 

125 DRTR33442311XXXXB#, 4434231 1XXXXB#4, XX 141 42336XXD45+, 334422 UXXXXB#5- 

126 DRTR2244331 1XXXXB#M, 4322331 1 XXXXD#?, 000011 322200E, 0000423222S0E4, 0021 1 132XXX 
XE5+ 

127 DRTR34452312XXXXE5-/000000322200EM..44233412XXXXE7, 111 122433311F, 111143332311 
F4 

123 BOTRI 1322243XXXXF5+, 354624 Ì3XXXXF5-, 11 li 1 1433311FM,45243513XXXXF7, 1212234434 
12F# 

125 BRTR121244342412FM, 12332344 XXXXF #5+ , 36 4725 14XXXXF#5-, 121 2124434 I2F#M 

130 DRTR462536 1 4XXXXF#? , 13Ì324453513G, 131 34535251 3G4, 13342445XXXXG5+, 374826 15XXX 
XG5- 

131 DRTR131313453513GM, 472637 1 SXXXXG7 , 1414254636140#, 1414463S2614G#4, 14332546XXX 
XG#5+ 

132 B0TR24133546XXXXG#5-, 141414463614G#M, 141425143S14G#7, 1515264737150; 151547372 


715 R 4 


133 BOTRI 5362647 XXXXR 5 +, 251 43647 XXXXP 5 - , 15 151 547371 5 fìM, 15152615371507,114333231 1 


134 BOTRI 1 443323 11 XXP#4,XX3323441 1 XXR #5+ , XX4333 22 1 1 XXR#5 - , 1 12243331 IXXR#M 

135 URTAI 1431 1331 1XX0#7, 1 2443424 12XXB, 1 24534241 2XXB 4, XX342445 1 2XXE5+ , XX44342312X 

v*=;_ 

136 BOTRI 2234434 12XXEN, 124412341 2XXB7, 3535353513XXC6, 43 11 22 11 33XXCÌ16, 36363636 14X 


137 DRTR44 1 2231 234X5£#M6, 32002200XXXXB6, 4513241335XXBP16, 431 13311XXXXB#6, 46142514 
36XXIi#’16 

138 DRTR441234Ì2XXXXE6, 4715261537XXEM6/ 45133513XXXXF6, 24133513XXXXFM6» 46143614XX 
XXFS6 

1 38 BRTR25 1 436 1 4XXXXF#M6, 471537 I5XXXXG6, 26 1 53715XXXXGWS ,11111111 3344G#6 , 27 1 63S 16 
XXXXG#N6 

140 BRTR12121 212344506, 421 1322200XXRM6, 1 3 13131 33346P46, 432233331 1XX0#MS, 14141414 
3647B6 

1 4 1 BRTR44233434 12XXEM6, XX24 13351 3XXCM7 , 333333 1 223XXC3 , XX44331 223XXC9+ , XX25 14361 
4XXC8M7 

142 BPTH3434341324XXC#9,XX45341324XXC#9+, 1 1 1 1220SXXXXUM7, 353535 1425XXB9, XX463514 
25XXB8+ 

1 43 DRTR322243! I XXXXB#K7, 363636 1 326XXB#9 , XX4736 1 526XXB#9+, 332344 1 2XXXXEM7, 373737 
1 627XXE9 

1 44 DRT04333 1 I22XXXXE9+ , 3424451 3XXXXFM7, 3344! 223XXXXF9, 4434 1 223XXXXF9+, 352546 14X 
XXXF#M? 

145 DPTR3445 1 324XXXXF #9 , 4S351324XXXXF#9+, 3626471 5XXXXGM7, 35461425XXXX09, 46361425 

XXXXG3+ ‘ 

146 BRTR372748 1 SXXXXG#M7, 364?1526XXXXG#9, 47371 526XXXXG#9+, 43H322230XXRM7, XX4514 
35 1 425R9 

147 BPTRXXXX45351 42509+, 11221 1331 1XX0#M7, 413121001 1XXR#9, 31422100 Ì1XXRS9+ 

143 PRTR 12231 23* 12XXB*? , 323232 1 1 22XXB9, XX43321 ! 22XXB9+ 
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Didattica 


Simulazione di somma algebrica 
effettuata da microprocessore 


QUANDO si lavora in BASIC spesso non ci si rende 
conto della complessità delle operazioni svolte dal 
computer, Dovrebbe esser noto che il microproces- 
sore, anche per eseguire operazioni molto banali 
come FRI NT 2 + 2, esegue, per obbedire al coman- 
do impartito, decine e decine di operazioni a velo- 
cità incredibile e lavora seguendo una logica mate- 
matica particolare die ù quella “booleana”. 

Nel presente articolo si descriverà, appunto, il 
modo in cui il microprocessore esegue la somma tra 
due numeri in accordo alla logica di Boote. 

Un computer “ragiona" solamente a base di 0 
{= assenza di tensione) e di 1 (= presenza di tensio- 
ne); qualsiasi istruzione o dato deve quindi essere 
“tradotto" utilizzando 1 oppure 0 prima di inserir- 
lo all'interno della macchina. Poiché i numeri che 
possono essere trattati sono due (1,0) parleremo di 
notazione binaria. 

La notazione a cui sia ino abituati è però quella 
decimale costituita da dieci numeri (da l ( a 9 più io 
0), Vediamo allora in che modo è possibile trasfor- 
mare un numero decimale, ad esempio IÌ2 ? nel 
corrispondente binario. 

Si divide il numero dato per due e si terrà conto 
se vi è resto o meno. Si continua quindi dividendo 
nuovamente il quoziente ottenuto per due, fino a 
che esso diventerà minore di due; in altre parole: 


1 12 : 2 - 56 Resto = 0 
56 : 2 = 28 Resto = 0 
28 : 2 - 14 Resto = 0 
14:2= 7 Resto = 0 

7:2= 3 Resto « 1 

3;2= 1 Resto - 1 

Il numero desiderato è pertanto 1 1 10000 in cui 
il primo I a sinistra rappresenta il valore dcirul ti- 
mo quoziente e gli altri valori sono quelli dei resti 
ottenuti, letti dal basso in alto. 

11 lettore verifichi le seguenti trasformazioni; 

64 = 1 000000 

15 =1111 

25Ó ^ 1 00000000 
255 - 1 1 1 1 li l J 

254 = ninno 

1100 = 1 110000100 

Si presenta, però, un problema passando dalla 
teoria alla pratica: un sistema a microprocessore 
può memorizzare solo gruppi di otto simboli (0 
oppure 1) alla volta perchè le memorie sono ele- 
menti fisici (circuiti integrati) costruiti per conte- 
nere, appunto, dei bytcs (= gruppi dì 8 simboli o 
bit) di lunghezza otto, 

ì numeri binari precedentemente calcolati, di 
lunghezza inferiore ad otto, possono allora essere 
“allungati" facilmente inserendo, a sinistra, tanti 
numeri 0 fino a raggiungere la lunghezza otto. Per- 
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tanto 1000000 diventerà OlOGGOOO mentre 1111 si 
trasforma in 00001 1 11 eco D'ora in poi, per fa- 
cilità di lettura, scriveremo gli otto bit in due grup- 
pi di quattro affiancati). E T come se noi. in pratica, 
scrìvessimo 0138 invece di 138: sappiamo benissi- 
mo che lo zero posto prima di un numero non ha 
significato. 

Come facciamo ora per i numeri più lunghi di 
otto bit? 

Purtroppo non possiamo far nulla: non è possi- 
bile, almeno in questo primo stadio della trattazio- 
ne, memorizzare un valore superiore a 235 (cioè: 
1 1 1 ì i 1 1 1), Vi è inoltre un'altra limitazione: non 
è possibile trattare numeri negativi. 

Sappiamo benissimo però che qualsiasi calcola- 
tore tratta numeri positivi e negativi di ordine ben 
maggiore di 255. 

Vediamo allora di eliminare le due limitazioni, 
cui prima accennavamo, iniziando dalla seconda. 

E ? noto che un numero negativo si differenzia 
da uno positivo per via del segno. Questo, che per 
noi è uno dei due simboli (più e meno) oltre i dieci 
dei numeri, deve però essere inserito in qualche 
modo nel computer come uno zero oppure un uno. 
Ebbene* se usiamo la convenzione per cui il primo 
bit a sinistra del byte interessato rappresenta il se- 
gno, sarà possibile trattare numeri positivi (0) e 
negativi; (1) pagando ovviamente tale nuova possi- 
bilità con valori assoluti minori. Infatti è come se 
potessimo trattare non più gruppi di otto bit* ma di 
sette, dato che il primo ha il solo compito di rap- 
presentare il segno, e con sette bit non si può rap- 
presentare un valore maggiore di 127, Ricordiamo 
che, usando una convenzione seguita in tutto il 
mondo, il primo bit a destra è numerato con 0, 
mentre il primo a sinistra (cioè fottavo), è il bit N. 
7, cioè: 7 6 5 43 2 10, 

L'intervallo che possiamo trattare passa cosi da: 
0 255 a -127 +128 

Vediamo adesso perchè i due valori assoluti non 
sono eguali. 

Se adottassimo la convenzione secondo cui la 
positività o negatività dipende solo dal segno (otta- 
vo bit o bit N°7) avremmo ad esempio: 


+ 2 - 0000 0010 
-2 - 1000 0010 
+64 - 0100 0000 
-64 - J 100 0000 

Ma se inoltre ha significato: 

0000 0000 cioè zero, 
il valore 1000 0000 significherebbe: -0 
il che è assurdo perchè 0 è considerato solo positi- 
vo* 

Per evitare tale errore si utilizza, per rappresen- 
tare numeri negativi, la cosiddetta notazione del 
complemento a due che esponiamo qui di seguito, 
senza dimostrazione. 

Supponiamo di voler rendere negativo il numero 
quattro, che in binario è rappresentato dal numero 
0000 0100 . 

Si cambia ciascun simbolo 0 con i e viceversa 
ottenendo: 

ìli] 1011; si somma ora il valore ì (o meglio: 
0000 0001} a quello precedentemente trovato con 
risultato: 1111 1 100. (Si ricordi che 1 + 1=0 con 
riporto di 1 ). 

Il lettore verifichi che: 

-64 = 1100 0000 
-31 = 11 10 0001 
ri « 1111 1111 
-128 - 1000 0000 

Prima di andare avanti è bene precisare in che 
modo eseguire le somme con la notazione binaria 
introducendo considerazioni sul CARRY (- ripor- 
to). 

Ragioniamo per ora in decimale. Volendo ese- 
guire la somma di 122+87 eseguiamo dapprima 
quella tra 7 e 2 e, dato che non vi è riporlo, scrivia- 
mo 9; eseguendo successivamente 2+8, trascriviamo 
0 e consideriamo il riporto 1 che sommeremo al- 
Pultima cifra rimasta ottenendo in definitiva 209, 

La stessa cosa faremo in binario considerando 
però il carry quando si sommerà 1 + L Ricorriamo 
ad un esempio: 

1 1 “ riporti 

00010010 + 

0000 01 10 = 


0001 1000 
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ioti Ktn 

138 FORI=1T039 : G$=G$4"-" : HEXT 

288 PRINTG$ : GOSUE330 ; Hi - VL : R-VL ; GOSUE260 : PR I NT " UH- " :RI$=fì$ 

2 1 8 GOSUE330 : A2=VL : fì=VL : GOSUB260 : PRIHT“®=" ■' PRINT” " : R2:f =fii 

228 GQ3UB378 ■ GQSUE438 " G0SUB598 : GQTQ20S 
238 END 

248 REM Mm ROUTINE DI CONVERSIONE 

258 REM M* Ufi DECIMALE fi BINARIO 

268 m = 11 " : POR I = 1 f 07 • B=R/2 : K$= " 0“ : I F< E- 1 NT <B>> THENK$= 11 1 " 

278 IFI=5THENKf=sK^ N " 

2S8 A$=K$+R$ : fi= I NT <E> ■ NEXT 
230 I FVLC0THENR$=" 1 " +A$ : G0T03 1 8 
380 A$="0"+A* 

310 PRINT" 

320 RETURN 

338 PRINTTREC 12> INPUT "VftLORE" VL = FRI NT "11" 

348 I FVLC- i 280RVL> 1 270RVL> I NT < VDTHEN338 
358 RETURN 

360 : REM *** ROUTINE DI SOMMA ALGEBRICA 

370 R3*= " " : V 1=0 = N=0 - V=0 : C 1 =8 : FOR I =3101 STEP- 1 

380 fì5$=t1ID$<RÌ$,I J i:?:lFfì5$=" "THEHA3$=" " +R3* : GÙTO430 

390 ft=VAL(fì5$) ; B=VAL < M I < R2$ > l A '/>■ I F I =2RND < A+E+C 1 » 1 THEN V 1 =1 

4G0 I F Cfì+E+C 1 » 1 THE NGOSUB630 : GO T 0430 

410 I FA=0fiNDB=0fìHDC 1 =0THENA3$= " 9 " +fi3P : GOT0438 

420 A3$= ” 1 " +A3-Ì ; C 1 =0 ; REM DE SI MONE SQF.TWARE/82 

438 HEXT : PR INTASA : PRINT : i*RIMT"CRRRV="Cl " DVERFLGM=" J 

448 IFCV.l = 1 ANCO 1 =0 > OR < V 1 =8ANBC 1 = 1 > THENF'R I NT " 1"; : V=1 ; GOTQ460 

450 PRINT" 0"; 

468 IFLEFT$(A3f.. 1 >=" 1 " TRENN= ! 

470 PR I NT ' 1 NE GRT I V0= "N : PR I NT-: RETURN 

480 : REM m* ESAME CflRRV OVERFLOU E NEGATIVO 

438 •IFC1=0ANDV=0RHIIN=0TH£NFRINT" RISULTATO POSITIVO ESRTTO= 3" ; 

508 IFC1=8RNDV=0ANDN=1THENPRI NT "RISULTATO NEGATIVO ESATTO- 3" : 

510 1 FCI=0RNDV= 1 ANDN=8TH£NPR I NT "RISULTATO IMPOSSIBILE" 

520 I FCt=0ANBV= 1 AHBN=1 THENPRINT "RISULTATO NEGATIVO DI 0VERFL0U=3", 
530 IFC1=1RHDV=GANDN=0THENPRIHT "RISULTATO POSITIVO ESATTO® 3 M ; 

540 I FC 1 = 1 AND V= 8 ANBN= 1 THEHPR I N T " R I SULT A TO NEGATIVO ESATT0=3" ; 

550 I FC 1 = 1 AND V= 1 fiNDN=@THENP R I NT " R I SULTATD POS 1 T I VO D I UNDE RFL 0 W= 3" ; 
560 IFC1 = 1 ANBV= 1 RNBN=1 THENPR I NT "RI SULT RTQ IMPORSI E ILE" 

570 RETURN 

586 : REM *** CALCOLO PER RISULTATI POSITIVI 

538 J=0 : AR=0 : IFLEFTT- < A3f-, 1 >=" 1 " THEHN=1 : G0SUBS68 : RETURN 

688 FOR I=3T0 I STEP- 1 ■' A8T=M I B$ < 03$ , 1 , 1 > ; I F A8f = " “ THENNEXT 

618 fìfì=fifì+ VRL < R8$ ) *2 tj : J-J+l : NEXT : PRINT A A : RETURN 

620 : REM #+* RIPORTO 

638 I FA+E+C 1 ~3THENR3$= " 1 " +R3* : RETURN 

648 h3*= “0" +A3# : CI =1 : RE T URN 

656 ; REM CALCOLO PER RISULTATI NEGATIVI 

668 J=0 : HH=0 : FORI =3T01 STEP- 1 : R8$=MID$Cfi3J A.. 1 ) : IFA8$=" " THENNEXT 

678 IFA3$=" 1 "THENA8$= ‘‘G" : G0T0638 

680 I FA8$= " 0 " THENAS$= 11 1 " 

638 HH=hA+VRL ( A8Ì>#2T..I : J=J+1 : NEXT : PRINT "-"fìfl+ 1 : RETURN 
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Partendo da destra abbiamo che 0+0=0: la se- 
conda somma parziale e I + ! che fornisce 0 (e non 
2, dato che possiamo utilizzare solo i simboli 0 e 1 ) 
con riporto di uno che sommato a 0 e ad I (terza 
somma parziale), fornisce nuovamente 0 con earry 
di L Quest 'ultimo è sommato a 0 c poi nuovamen- 
te a 0 (quarta somma parziale) fornendo zero come 
riporto. Le successive somme di coppie di valori 
relative ai bit 4, 5. 6. 7, non costituiscono proble- 
mi, 

-i 

Ricordiamo che nel caso di somma contempora- 
nca di più numeri binari si osserverà la norma se- 
guente: se la “colonnina'’ di simboli (compresi 
eventuali riporti) è costituita solo da 0, si scrive 0 e 
si riporta 0; se il numero di 1 presenti è pari si 
scrive 0 e si riportano tanti I quanti nc rappresenta 
il numero di 1 presenti diviso per due; se \] numero 
di 1 presenti è invece dispari, si scrive I e si riporta- 
no tanti 1, sulla "colonnina" successiva, quanti ne 
saranno rappresentati dalla parte intera della quan- 
tità di 1 divisa per due. Esempio: 

1 2” Riporto 

,1_1 I Ll° Riporto 

0010 01 li + 

0000 1111+ 

0000 0100 = 

0011 1010 

Vediamo ora di applicare la regola esposta nel 
seguente caso particolare: 

I 

dui imi 127 + 

64 * 

T 7 7 

a ■ « 

Si è verificato un overflow; la somma dei due 
numeri induce un riporto nel l’ottavo bit che é però 
quello rappresentante il segno e il risultato è errato 
benché in regola della somma sia stata rigo rosa inen- 
te rispettata. Quest ultima, infatti, è una regola ma- 
tematica che non può tener conto delle "comodi- 
tà" che noi introduciamo per tener conto dei nu- 
meri negativi. Pertanto si verificheranno errori 
quando la somma dei due numeri supera il valore 
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+ 127 oppure è interiore a -128, 

Tali condizioni di errore sono simulate dal pro- 
gramma presentato in cui: CI rappresenta il earry; 
N indica se il risultato ottenuto dalla somma è posi- 
tivo o negativo (in pratica N sì limita a leggere il 
* 

valore del bit N°7 ; se esso è I vuol dire che è nega- 
tivo e quindi N=1 ; in caso contrario N=G). L'ultima 
variabile, o meglio, /lag. è V ed indica Poverflow, 
Tale flag sarà automaticamente posto ad I se, nel- 
['eseguire la somma, vi è riporto tra li bit 6 ed il bit 

<i ■ i 

7 ma non si verifica un contemporaneo riporto 
esterno (cioè riporto per una ipotetica colonnina 
N° 8). Sarà anche gettato ad 1 se non vi è riporto 
tra il bit 6 e il bit 7 ma vì è ripòrto esterno (vedi 
riga 440). Negli altri casi V sarà regettato e posto a 
zero. 

Il flag V, tenuto conto dei flag N e C, è utilizza- 
to proprio per tener conto di errori che si verifica- 
no a causa della convenzione usata per rappresenta- 
re il segno che può, come abbiamo visto; essere 
confuso per un valore numerico. 

Facendo girare il programma il lettore può veri- 
ficare quanto affermato studiando soprattutto le 
righe da 480 a 560. Le righe 510 e 560, in effetti, 
non saranno mai prese in considerazione dal pro- 
gramma e sono state trascritte per completare le 
combinazioni possibili. 

Vediamo ora in che modo ampliare il campo dei 
numeri che è possibile sommare tra loro. 

Sappiamo ormai che ['intervallo preso in esame 
è compreso tra i valori -128 e +127 e ciò a causa 
della lunghezza fisica del registro di memoria in cui 
vengono allocati i simboli Oc I , Se però noi potes- 
simo disporre di memorie più “larghe” il problema 
sarebbe sicuramente di minore gravità. Possiamo, in 
questa ipotesi, considerare i numeri da trattare lar- 
ghi non otto ma, ad esempio, sedici bit. Sarà per- 
tanto possibile considerare (riservando, come pri- 
ma. al primo bit a sinistra il significato di segno) 
l' intervallo di numeri interi compresi tra -32768 
(cioè: 1111 IMI 1111 111 I) e +J2767 (vale a 
dire: 0M i E I 1 1 1111 IMI), Eseguendo la somma 
algebrica tra due numeri cosf rappresentati, il di- 
scorso sui flag V,N,C sarà valido non più esaminan- 
do il riporto tra il bit 6 ed il bit 7 e sul riporto 
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INCREDIBILE 
IN TUTTO. 

L. 825.000 

II prezzo. 

Commodore 64 è iì solo vero Personal Computer che costi meno 
di un milione, 825.000+ IVA. 

Il concorrente più vicino può darvi le stesse carati e risticHfe a non meno 
del doppio. Perchè Commodore produce solo Personal Computer 
e perchè li produce con il miglior rapporto prezzo-prestazioni oggi esistente. 

Gli utilizzi, 

Commodore 64 è ideale per mille utilizzi. Nel lavoro, in casa e nello studio. 
Le sue eccezionali qualità lo rendono adatto per l'uomo d'affari e per 
i uomo di finanza, per il commerciante e per [’uomo di marketing, per la 
piccola industria e per i vari reparti di una grande azienda. 

Serve per stime, bilanci, gestioni, magazzino, word processing. Moltissimi 
sono i programmi esìstenti. In casa evade la corrispondenza, tiene conti 
e bilanci, comunica via telefono, suggerisce ricette, diete ed è ideale per 
chi vuole programmare. Nella scuola mette alla portata degli studenti 
uno strumento didattico di primissima importanza, con una vasta libreria 
di programmi e applicazioni. 


Le caratteristiche. 

64 K di memoria incorporata, 16 colori in tastiera. Alta risoluzione 
grafica. Effetto tridimensionale. Sintetizzatore musicale di livello 
professionale. Capacità di un secondo processore. Una gamma 
completa di periferiche e interfacce. 


Provalo subito. 

Da oggi Commodore 64 è presso i distributori autorizzati Commodore, 
i centri vendita GBCe presso ì Bit Shop Primavera, Entra e provalo; 
scoprirai perchè è incredibile! 
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software VIC20 
I nuovi prezzi I» bits & bytes : 


VA* OSI JtECKHE T 

Ur gioco d T ariofte furiosa ! dii rirategù La m vi pitterete contro 
L i vostro Vl: o contri un avversino zaino. Li rei lo autouticn di 
difficolti* , 5 tiri int i di giuro, aziono, calure ed effetti 7 *- or; 
sbalorditivi, Ultore SI. Lite IJiW 

mi* vie imo 

Uri vii L ity qr«fsta che trasferta il vostro seterie io ani 'teli' r 
littrnnici. [] program e' disunite 3Ef sollrtiuro L J Luag inizi ir 
ne, li creatività:' ed il cMrdtnieefito iino-ccteici, il che he f a* an- 
che -jn atti» stringo educativo. Joystick. Lit- ìt.Wl 

fflIEI ALEEK 5HCEF 

Una parti ta di calcio <mtm avversari alieni, Il |i»o t 7 reso piu" 
variò e interessante dìi ’fcutpeiV scarsi nel caspe, che vi dim 
pwiti fiiwd-j cràuti, e iì altre w^tw Ore ed ore di ih verte eeo- 
tc 1 Joystick a paddle opzionali, Lit . H.M 0 

NIKI WUCIJC CWfiSFIfif 

Ur oca d 1 arsene filiale in cui dovrete difesseci dail'ikbostita 
dei atei di al l robnts Thorii e di stringerli. Bav?Eti snehe guardarvi 
dì teòpeste rit Ibisco e dì lizze insidie sortali;. Iftm o dee giocatori 
? 5 livelli di Lit, W.M0 

mm fwh flì 

Un gì reo dt destrezza attuale in Cai dovrete anvr? un gruppo di ag- 
ri cri tori e di piloti di rii Editerà i distrugger* ci 1 orda di furile! 
par afisi ti die ti lucci un le colti ritiri. Joystick. Lit. ZteWfl 

il IO» GHECKBQDfc 

Un fon Leto package di contabiliti' battane {resistente in 2 pro- 
gram: ChfftvUer attori!» tutte Se vostre oper azioni ed effettui 
la quadratura per » eie g per assona; CNUreatfer t" p program di 
ricerca, totiliimiwe t visiulliiKiwe di poctrì stiliti' nril'i- 
-kEisj del hi ime in fasi E i are, griffe di riatpa. Ut. 43. 0<H 

VIRO IH SALACI IC ALITI 

(in fio» J'atiHte rapidiasiuL dogete battervi eoo 15 diversi tipi 
di al tei i.j ciascMo con le sue cìt atteri sti che. ti spor rete di arti 
laser, fiatoni che e laser. Alba rifluì ime e linguaggia tócchi ih o* 
lini m dei ai gl tori giochi spaziali, Ut, 5S.WM 

VW1I VILHI 

Un ccerìc prnqraua di calcolo; è suo! >0 registri di mem e t di 
dati sol lo etack sono crataotefente visualizzati sello seterie. Pt e - 
«End -3 uh singolo toste, polretF ottenere i risultiti di fazioni i- 
rsteetifhp e I9tctittche- F prcfriigiìi, tesori ciswlì, interessi cot- 
ante e Cosi' via. -iresti risultati ptttoou essere imqiinniti il 
qualunque registro di maria, La precisione può' essere scelta tra 0 
e f cifre significativi. Lit, 30. WO 

mm «liei «.iti 

Un gioco J J azione io cui dovrete Li ber ire il et eie dì invasori alie- 
ni. Ilitlrt rie riflessi pronti ss t et, speri al sente ai Urtiti superiori 
di difficolta', Eosprende diversi 'speciali' per chi raggiunti alti 
punteggi a colpisce deteriinìti obiettivi* Joystick. Lit, H.CHW 

flJftftK NE ALIEN SK KETH mm 

Questa volta Tal iena siete voi^ e dovrete difendervi, eco trappole 
aeree qpofiabili ed litri espedienti, dagli abitanti di Crttter City 
che cercano di annientarvi. Azcccie rapidissiu ed effetti sonori, £■ 
spìnsi Mie Ut, Ut. 50, (WD 

YWOM I H Ptó!£ 

Dorrete trovare La vostra strìda attraverso il pareti rt i corridoi 
di un intricato labirinto, I vari passaggi si aprono reali stitiscnte 
ìi vostri occhi lèrtre cercate ifltfinoiatent* ulti via d'uscita. Vi 
iatr atterri' per ore ed ore, Lit, 


il 


yUHOfll VICftì 

11 vHtrn data base per sanili: questa pragraw pun J gestire elenchi 
«i nofli, icidtmtìj nuieri teSffOfiici, ricette e tolte altre c«e, I 
recar io possono «sere radi f ititi p il fateti nati, regi ri rati d prele- 
vati da nastro, Vtcìc e 1 parti col arterie potente quando i suol pfiii 
ftles vergniE usati caie directorin, tiiHinD dei files IIS li«e 
chi 17 car«tteri per linei} passano esser* analizzati cw uni rapidi 
funzione ci ricerca. Espansione K o 3*. Ut. 5C.M4 

UttlfDII (VtUl. 

! corridoi il Anli sKC popolati di rabpts La arai sola finalità' can- 
siete ntirmùnt ine i visititori indisi dorali, f# «Lwn f do^r 
te prendere dee Elioni rapide f howri teine piente. E PdUi li velli 
di dtfft colta J di questa gioco ti daranno óre di diverti «enls. Ri- 
efiisde il joysticL Ul, M.Dfi'P 

WflÙC m 

Il pFnqpaaai precedente w ctftfccit. Lit. 3D,WD 

mi* vim fi 

'Jn program di utility che vi ceneri ira' Éi cennettervi tilefonlta- 
ÉMte c« reti fi chuh C ìZione p di trasferiate il mira Vie in ua 
ter li hi] e di cwpri^s pi« J qrindi, RicMede un «dei cen interfltcil 
RS^K, Lit. «,«W 

Mi» SUI CHASE 

Una flotta di sowgibeli sgancia urta Lì ììm ad iHereicne. Per 
fi strugger le, dovrete piatine al posta gius! e deile barriere fi hot- 
bE li pri?fMdita 9 + Piu T riu&c irete t diri* sterni, t attivi a, piu' 
i J attacco netko si fari 9 serrato 1 Espansive flt. UL H.OW 

MlZn flSHfC Mlf-WIE 

La vostra astronave, sn viaria verso li Terfi, verri* distrutti «e 
urite hid ioli degli invasori aliasi la raggiung-era'. La laro entri- 
gli a Li orutegge eff li cateteri e e da «sa f avrete guardarvi le special 
imo- 13 vostro successo E a spingerà' a s catenari contro di voi «nove 
orde fi invasar i. Espansi or e ìF . Lit, 50. 

Vif« VICLfCf 

t program per gestri la vostri cortei)! Siti' bue ir il, capresi 
assegni, depositi t tutte le annali pperaziMii. Funziiwi di control- 
lo, di ricerca rapida. 6i igoicrnuentn e perfine di itatpa assegni, 
EsyansiPie E n BK. Ut, 54.000 


>m> MDVIT^ mi 


ma vie wsic mm 

Lit. &7.M4 

«MII5H IETIDR SHOfiR 

Lit. M, &W 

mm FUEL PtMTE 

Lit, H.0M 

Mt'jJl 5IHDK 

Lite 34.WO 

VHI0JC TLSUE fifttfHICS 

Ut. H.W4 

fHEMH EfflKEXTRflfilHi 

Lite W,WO 

m m vicino; 

Ut, 37, flirt 

VASD2A F.EÌÌLf ri HEGEL 

Lite M,W» 

mi* 5W« 0F FAK60AL 

Ut. 60.0M 

VTFP2H SMMH! 

Ut. W,M0 

VTRCTH SEHWLJfDf-4 

ut. ìd.ooo 


Legenda - Utili lettera del endice: mastro ECartafciì, 

Il presente luti un annulla e sustituiice tutti i precedenti, 

3 pmzi Si mtEidona a) netto di IVfi IH e trinco ns.sede di Hi Lane. 
Eli ordini posHno ess-ere iitolt/ali per Eettera 
o telefonando ai nuieri (021 573J04 - 54AsV5j, 

Li spedizione si effettua cortr assegno, salvo accordi particolari, 

Cwdiiiofti particoSìri ai Sigig, Biviwfilirj, 
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Numero da* bit o esponente dì 2 

Valore? della potenza di 2 


^ Riporti 


Valori * decimali 


0 Ò Q’ 1 0’ t 0 1 II 1 0 0 Q 1 ì 1 1 ,+ -*r=sddenda 5519 + 
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0 0. | \ 1 


01 0 1 0 *1 0 0 j] 1 0 0 0 1 0 0 0 1=| «"*2° — addendo 21640 = 

0 1 1 0 1 0 1 0 j { 0' 0 0 1 Q 7 1 7 Risultato +* 2? ISO 


Parti alte (Hi addendi 
a risultato (R} 


Parti basso (Li addendi 
a risultato (R) 



esterno, ma sul carry tra il bit 34 ed ti bit 15 e sul 
riporto deiripotetico sedicesimo bit. 

Vediamo ora come passare dalla teoria alla pra- 
tica. 

Per scrivere un numero in memoria lo por te re- 

H 

nio (vedi schema) dapprima alla lunghezza di sedici 
bit inserendo, eventualmente, tanti 0 a sinistra 
quanti ne bastano. In seguito "spezzeremo” tale 
numero in due da otto bit ciascuno potendo cosi 
inserirli in due elementi da otto bit. Analogamente 
ci comporteremo con l’altro numero ai quale vo- 
gliamo sommare il numero già memorizzato. Per 
eseguire, appunto, la somma, consideriamo le due 
metà di destra dei due numeri e le sommiamo senza 
tener conto del flag N e V, ma considerando solo il 


flag di carry C. E ’ ovvio che le due metà dì destra 
cosi 1 considerate in questa nuova convenzione, non 
sono limitate dai due valori +127 e -128 proprio 
perchè tale limitazione non ha senso dato che il bit 
N ù 7 non possiede il significato di segno. 

Dopo aver eseguito la somma tra i corrisponden- 
ti otto bit di destra si sommano tra di loro i corri- 
spondenti primi otto bit di sinistra, tenendo conto 
anche dell'eventuale carry della precedente somma 
parziale e prendendo in esame, stavolta, i tre flag 
V.C.N per controllare se vi è overflow (valori supe- 
riori a +32767) oppure underflow (valori inferiori a 
-32768). 

li programma presentato simula, in effetti, solo 
il caso di somme di numeri nel formato da otto bit. 

Poiché il programma stesso è strutturato in una 
serie di subroutines dì facile interpretazione, il let- 
tore, per esercizio, può sofisticarlo aggiungendo al- 
cune istruzioni per considerare l’intervallo -32768 
+32767. 

Si tenga comunque presente che per 3 "elabora- 
zione di alcuni dati, come la notazione complemen- 
to a due, nel programma presentato si è fatto ricor- 
so ad alcuni..., trucchetti per evitare il calcolo in bi- 
nario puro. Lo schema clic completa il presente 
articolo rappresenta, infine, un utile riepilogo sul- 

l 'argomento trattato. * 

A. De Simone 
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vie 

REL 


VOLETE controllare mediante 
VIC un sistema antifurto, un 
campanello o una sirena d’allar- 
me, le porte del vostro garage, il 
lucchetto di sicurezza di casa vo- 
stra, l’accensione e lo spegnimen- 
to del sistema di riscaldamento, 
di lampade, trasmittenti, control- 


niM* 1 




lori remoti, valvole, pompe, tele- 
foni, accumulatori, impianti di ir- 
rigazione. apparecchiature elettri- 


che, temporizzatori, ventilatori, 
deumidificatori, ecc, ecc.? Quel- 
lo che vi serve, allora, è un VIC - 
REL. 

Questa cassetta contiene sei 
relay in uscita e due input' tipo 
optoacoop latori e si collega al 
VIC attraverso la porta utente 
(posta dietro il computer sulla si- 
nistra). 

Nell’esempio fi portato nel 
completo ma nua Ietto d'uso, vie- 
ne illustrata V utilizzazione del 

i 

VIC- REL per azionare automati- 
camente la porta d 'ingresso (ed 
accendere una lampada di segna- 
lazione) tutte le volte che qualcu- 
no pressa il campanello di casa. 


Contabilità giornaliera. Diziona- 
rio, Ricettario, Agenda, Applica- 
zioni matematiche e scientifiche: 
sono i tìtoli dei primi cinque pac- 
chetti-prodotto per il Vie che 
verranno messi in commercio at- 
traverso la rete di distributori 
Commodore per facilitare la dif- 
fusione di queste macchinette. Il 
prezzo di ciascun programma è di 
lire 50,000 (Iva inclusa) e com- 
prende la cassetta/ dischetto ed il 
manuale d’uso. 

11 programma “Contabilità 
giornaliera ’, in particolare, vi dà 
la possibilità di registrare giornal- 
mente le vostre entrate e le vo- 
stre uscire, dopo averle contrasse- 


I conti di casa 



Programmo 
su cassetta 

richiede 1 6K RAM 


gnatc con un nome da voi scelto, uscite: spese per il vitto, affìtto. 
Ad esempio: entrate: stipendi. luce, gas, spese per Vautomobile, 
eredità, vincete al totocalcio; eca 

Tutte le descrizioni che pote- 
te dare deile vostre entrate e del- 
le uscite vengono chiamate tecni- 
camente “conti”. 

In ogni gestione contabile, ed 
anche in quella che voi potete fa- 
re con questo programma, esisto- 
no del conti di entrata e di usci- 
ta: questi avranno naturalmente 
anche un nome, come negli esem- 
pi fatti prima. 

Lo strumento contabile non si 
ferma però qui, infatti all’interno 
di ogni conto di entrata o dì usci- 
ta sono contenute altre descrizio- 


Contabilità giornaliera 




** 

L ^ 

B 

1 

SI 


Manuale d'uso 
Programma VIC-5001 


cnmmndci.H 

GOMfUTEft 
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ni, che costituiscono i cosiddetti 
sottocomi. Per fare un esempio: 
nel conto generale di entrata de- 
nominato “stipendi” potrete ave- 
re quali sottoconti: stipendio 
mamma, stipendio papà, stipen- 
dio figli, stipendio zio e cosi vìa. 
Alla stessa maniera nel conto ge- 
nerale di uscita denominato “spe- 
se generali” potreste avere i sot- 
toconti: luce, gas, telefono, affit- 
to, ccc. 

In questo modo potrete, gior- 
no dopo giorno, registrare le spe- 
se (uscite) e le entrate in denaro 
nei rispettivi conti e sottoco ni i, 
ed avere in ogni momento sotto 
controllo la vostra situazione 
economica. 

II programma da, inoltre. Sa 
possibilità di chiamare i conti ei 
sottoconti nel modo che più vi fa 
comodo, di caricare mensilmente 
al l'interno di ogni sottoconto le 
spese e le entrate, di farle visua- 
lizzare ogni volta che volete, di 
registrarle su nastro e conservarle' 
indefinitamente. 

Il programma, che al termine 
de irriso, dà il saldo, cioè la diffe- 
renza tra le entrate e le uscite, 
consente di gestire fino ad un 
massimo di 5 conti e 45 sotto- 
conti, 

ASSISTENZA VIC 

Por facilitare l,i man urei??, ione 
del vostro VIC* hi Commodoro 
Italia ita ha istituito presso la 
CATMÈ di Milano Via F. Se- 
vero i i, 9 tei. 0 - 2 / 4152840 ) 
li il centro di assistenza a dispo- 
sizione di rimi gii utenti. 

Responsabile della Carme e 
il signor I umagall i. 




Vieni alla Homìe e fatti mo- 
strare un +t per sonar Commodore: 
li trovi tutti, dal P eccezion a le 
Vic20 Colour Computer, che 
permette di lavorare con 24 
colori, produce suoni e musica 
c?cl e collegabile con ogni apparec- 
chio televisivo e risolve problemi 


scolastici, dì divertimento e tec- 
nico scientifici, alle Serie CBM 
destinate a trattare quantità 
medie e grandi di dati per la 
gestione della casa, degli studi 
profes siona 1 i e delle picco! e azie nde . 

Vieni alla Homìe; trovi il 
meglio, 



Uffici: Piazza de Afilli, "ì - Milano - Tel. 4695467-Ì69604(M984 f»83 _ _ 

Sono interessato a ricevere materiale illustrativo 

nome 

indirizzo . 1 

i» I 1 

i 
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commòdaré 

iWITGH 


ivi f ■ 


ISwFrritm 


Una rete di Vie 


COME si fa per far comunicare 
più utenti di VIC con la stessa 
apparecchiatura periferica t stani - 
patite, VIC 1515, memoria a di- 
schetto 1540)? 

Occorre un VIC-Swilch che si 
comporti come un vigile urbano 
e stabilisca le code di priorità tra 
i vari richiedenti facce sso. 

Con il VIC- Sw iteli gli utenti 
possono accedere alle apparec- 
chiature comuni in ordine: ad 
esempio, iJ n.ro 2 ha fe priorità 


suifutente n. 7, ma se in quel 
momento la linea è occupata dal 
VIC n.ro 6. non appena questo 
finisce, il nostro vigile, prima di 
dare il verde all'utente 2, cederà 
la linea ai 7. In altri termini non 
esistono utenti privilegiati. 

Come funziona 

Nel pannello frontale notiamo 
9 indicatori a LED. Quello più a 
sinistra, contrassegnato dalle let- 


tere pwr f= power, corrente) in- 
dica se il VIC-Switch è acceso o 
spento. Gli altri 8 led indicano 
quale utente sta “transitando" 
per il switeh in quel momento. 

Il pannello posteriore com- 
prende [e prèse DIN per le peri- 
feriche ed i computer da co (lega- 
re, 

il cavo utilizzabile può essere 
lungo al massimo 12 metri: tanto 
quanto basta per una piccola rete 
locale. 
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T1/T2. interf 
488 parallela 


Queste interfacce permuti ui 
col legare il Vie 20 o ii Commo- 
dore 64 a tutte le periferiche del- 




la serie CBM come i floppy disk 
4040. 8050 e 8250, la stampante 
4022 1\ 80231* e CBM 6400. 

Il vantaggio per l'utente è im- 


mediato- infatti, si ha finalmente 
la possibilità di avere a disposi- 
zione grosse qua ni ita di memoria 
di massa, per la registrazione dei 
dati, e stampanti veloci e di qua- 
lità, 

li prezzo di queste interfacce 
è dì lire I 75 mila. 



BUON SOFTWARE GESTIONALE PER PET/CBM 

Programmi collaudati - semplici - affidabili - veloci - efficienti 

I pri^rdOìimi presso rìuUri da offri 1 ■ j'j jl ,ir?nr. ! jrwir)fìurn ■ kmi- quo- 

Iist^.x: ronfcma?w»p mm).ì 2/8032 + miMtMU'fo TyU'&JiÙ. Abbiamo im- 
pfafyato fiìeri r/i 'Jfitff'.jjfirru umana" rvj csifri* pusdbifa stìfi'-ticoziune softvww h 
per rendere l'uso e scorrevole. Cestone delle maschere med&ntc 

su’hrmrtoi. 1 '* j>t ROM ftrtpCfMhihr hit* cam un fMìgrmvrkt o yxw- 

cjrv il video. Tutti i ròrtlègg# su 12 cifre. Cestone degli errori do disto, SvgTtolt 
n (Ms . : f/i < om rolla. Hmi-i tifi), A norma i falli fagttìi /ione vigente Ct m doli dì 
dettatati manuali d'oso. A^gvornah snmeitra'mnn.lr: 1 . ! prezzi comprendono: 
KOM. a/topar/ante, coeso d'àdcfa'itràmenlo ed assiema Ravviamento 

SEMPL contabilità '.empliinvila - Gira su due soli dischi idtxv programmi - 
disto ditta}. Capacità max UDO dienti + tornitori, Registri stampati a posteriori 
(gestione (ji brogliaccio). Ventila/kme e ^osporo, dichiarazione ERPET, allegati 
IVA, ere. t Henri e fornitori richiamati crsrr codice si mbrdico assegnato dall'u- 
tente ìRosni s\ chiama «Rossi* c j rum u7234frì-, Vekxità di uvitabiHzzjziCtfK 11 : 3 
documento, L t990,QtXI 

GEMAF contabilità generale ■ Gra so dot' sola dischi (disco programmi + d- 
900 conli). Carità max KXÌO diemi p fornitori + 900 i orili -!- 09 mastri. Re 1 
gistri ed allegati IVA. giornale borato bilanci, estratti conto, eco. Velocità di 
contabi^zazà^pe: 2 seetfiga giornale* L 1,990.000 

Opjrkxtp MAGAZZINO & FATTURAZIONE per GEMAF - Tutta 

la procedura contabilità + magazzino 4 fatturaz+one gira Su trO sdr dischi 
(disco programmi 4- disco conti + disco magazzino) Capacità max KXJiK) al- 
coli, Giornate di magazzino. UPG* Fatturazione totalmente in linea, con ge- 
stione in tempo resale dei progressivi di scarico e del sotto scorta; trascrizione 
immediata n prim.i nota. Cedo! ino agenti. Stampa effetti Gestisce articoli, 
premiazioni maggiorazioni e sconti in qualunque combtnaikwse. L 500.000 

Opzione PRODUZIONE per GEMAF - Distinta base a n livelli fino a 
max 2000 cnmjxmenli |-M j r prodotto unito. Sviluppo automatico dei movi- 
menti di carico e carico Lancio di commesse con controllo scorte. L. 500,000 

Tutti s programmi sono coperti dalla speciale garanzia ,J ni>bug£' f : 
premio di L* 100*000 a chiunque segnali un errore software. 

Concessionari / installatori autorizzati in tutta Italia 

Sistemi gestionali Commodore a partire da L 4,990*000 


COMPU ’ Computi metrici* Consente di gestire un archivio voci, ese- 
guire variazioni prezzi, compilare 1 computi. memori z/arii, modificarli e stampar- 
li con vari formati. Ogni v<xe può contenere max 100 righe- 1 di descrizione. 
Aggiornamento prezzi automatico su tutti i computi. Le espressioni matemati- 
die dei ptr/iali sono riportali 1 in stampa, COMPU utiliza le stesse sofisticate 
tecniche di programmazione del nostro software gestionale, L’efficiente orga- 
nizzazione delle maschere, unita alla possibilità di rie hramare le voti tori codi- 
ce «parìante». consente un'eccezionale scorrevdezza nell uso. L. 50CUMJQ 


LE SUPER ROM LOGICA 

Potenzia no il Ra.sk Commodore aggiungendo nuòve istruzioni 

fV-ogranremer's Toolki! - aggiunge i t omandt AUTO, DEtETf. RE N U MBE K, 
HELP, TRAC E. STEP, OFF. DUMP, ÀPPEND. FIMO. La Rotti più venduta nel 
mondo Assolutamente indisponivi bile per chi sviluppa programmi L 85.000 

Comma nd-O ■ per 4032 e 9032 - aggiunge i comandi del Toofkrt. i comandi 
'TND. OUT, KltL. BFFP, PRIMI U5ÌMG, e (unzioni di editing script, repeal, 
est, tasso funzione). I*a Rom più completa. L 135,000 

Rom ELPRO - Input controllato, stampe formattate, hard copy da video, con- 
irolo del et» sere {istruzioni CURS, CLFAR. ENTFR, OLJT. DEVO, LC.ASE, 
HDÒ*Vk Per professionalizzale i vostri programmi. L 95-Q0& 

BASIC 4,0 ■ Set di Roms per trasforenare il 3032 in 4032 L 150.000 

SPACEMAKER - Permette di montare fino a 4 Ronts sullo stesso zoccolo e 
selezionarle con un commutatore L 80.000 


CQGNIVOX - Terminale Voice InputOutput per far parlare e aM^oltarc il 
PFT/Clì.vi - completrr di hardware e software dimostrativo L 349,000 

COMPUCRUISf - Computer iti borda per auto - regolazione automatica deh 
la velocità - complelo di parti meccaniche. L, 299.000 


gli specialisti Commodoro 

dr, i»g, Mario Pavesi 

Via Bonoml, 6 - 46100 Mantova - ToL f0376) ì r if}.2 ì8 
Prodotti CommotJore c Sinus/vt'ndifa dìrotiì c /kte orró/x nKbn/d 






Riservato 
agli ingegneri 

Il miglior software tecnico 
su elaboratori CBM - Commodore 

“S.S.-80” 

L’ormai famoso programma per il calcolo delie strutture inte- 
laiate piane in c.a., in zona sismica, che sviluppa e disegna 
anche le carpenterie delle armature. 

{Ultima versione Luglio/1982 nostra esclusiva). 

“FONDAZIONI” 

Risolve tutti i problemi di fondazioni (trave elastica su suolo 
elastico) di strutture in c.a. in zona sismica e non, risolvendo 
l'intero graticcio di fondazione e proponendo una carpenteria 
sofisticata ed ottimizzata. 

“MURI DI SOSTEGNO” 

A gravità, a mensola o a contrafforti, anche in zona sismica, 
secondo il D.M. del 21/1/1981. 


“PENDÌI” 

Analizza la stabilità di un pendio o dì un fronte di scavo sotto 
diverse condizioni e la verifica relativa viene condotta in termi- 
ni di tensioni effettive; la stima dei fattori di sicurezza viene ef- 
fettuata secondo i metodi di Feilenius, Bishop e Jambu. 

“COMPUTI METRICI” 

Analisi ed elenco prezzi Metodo veloce e completamente 
automatizzato per il computo e la stima dei lavori. 

“REVISIONE PREZZI” 

Secondo le disposizioni di legge vìgenti. Praticità ed automa- 
zione consentono di eseguire velocemente revisioni di prezzi 
anche per lunghi periodi. 

Richiedeteci documentazione e output dei programmi di vostro interes- 
se. Resterete sbalorditi dalla versatilità e dalia completezza del nostro 
software. 
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NEW NEW NEW NEW NEW NEW NEW NEW NEW NEW NEW NEW 

È pronto il nuovissimo programma 
“ORARIO SCOLASTICO” 




un vero sistema 




g,umij 


automaticamente le dosi ncees 






Matematico/scientiilco. Alcune appuntamenti. 




funzioni eseguibili: operazioni 
algebriche, logaritmi, fattoriali, 
seni e coseni, tangenti, equazioni 
di primo e secondo grado, radici. 

Agenda rubrica telefonica. Per 


Archivio di parole* Con tradu- 
zione simultanea multilingue: in- 
glese. tedesco, francese e un’al- 
tra lingua. Un vocabolario che si 
presta a mille altri utilizzi. 



sane. 

Contabilità giornaliera. Utilis- 
simo per registrare giornalmente 
entrate e uscite economiche: sti- 
pendi, rendite, vincite, spese per 




memorizzare sino a 90 noni t, in- Ricettario. Un vero Chef per- vitto, alloggio, auto, eccetera. 


dirizzi e numeri telefonici. Per sonale die memorizza le ricette Consente di tenere una facile 


programmare date e orari degli più segrete e le ricorda fornendo contabilità mese per mese. 


Z Commodore 

COMPUTER 





